Help for this page

Select Code to Download


  1. or download this
    print "Content-type: text/html\n";
print "Set-Cookie: foo=bar; path=/; expires=Mon, 01-Jan-2001 00:00:00 
+GMT\n\n";
  2. or download this
    @nvpairs=split(/; /, $ENV{'HTTP_COOKIE'});
foreach $pair (@nvpairs) {
   ($name, $value) = split(/=/, $pair);
}
  3. or download this
    $cookie{$name} = $value;