Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl
use CGI;
$q = new CGI;
...
$cookie_out = $q->cookie(-name=>"cookieinfo", 
       -value=>$random,-expires=>'+24h');
print $q->header(-cookie=>$cookie_out);

Select or download this

#!/usr/local/bin/perl
use CGI;
$q = new CGI;
...
print "Content-type: text/html\n\n";
$cookie_in = $q->cookie("cookieinfo"); 
print $cookie_in;