Need help with reading cookies

[alarge23]

I am new to Perl and need help with my code. The following code will set cookies ok, but will not read them. Why not?

#!/perl/bin -w
use strict;
use CGI qwstandard);

my $cookie_in = ' ';
my $query = new CGI;
my $set_cookie1 = $query->cookie(-name=>"hotdog",
-value=>"2"
my $set_cookie2 = $query->cookie(-name=>"fries",
-value=>"3"

$cookie_in = $query->cookie("hotdog"

if ($cookie_in)
{ print "Value for hotdog in cookies: $cookie_in\n"; }
else
{ print "Can't find hotdog cookies.\n"; }

 

[siberian]

When you set a cookie it may not be immediately readable until the next transaction.

Try not setting it everytime and see what happens.

 

[alarge23]

siberian,

Thanks for the help, but it still doesn't appear to work. Any more suggestions?
In the mean time, I have found a work around, by using javascript to set/read cookies instead. I would still like to learn to do this with perl.

 

[PaulTEG]

CGI-Session
--Paul