Help for this page

Select Code to Download


  1. or download this
    use CGI::Cookie;
my $c = new CGI::Cookie(
  -name    =>  'COOKIENAME',
...
  -domain  =>  '.domain.com'
);
print "Set-Cookie: $c\n";
  2. or download this
    my %temp = parse CGI::Cookie($ENV{HTTP_COOKIE});
my %cookies;
foreach (keys %temp) {
    $cookies{$_} = shift @{$temp{$_}{value}};
}
  3. or download this
    print header();
my $debug = 1;
# READ COOKIE CODE
...
    print "$_: $cookies{$_}<BR>\n";
  }
}