Select Code to Download

sub set_cookie {
 ###########################################
...
 # send it to the browser
 print $p->header(-cookie => $cookie);
}

sub get_cookie
{
...
 print $p->header();
 return (%userinf);
}