Help for this page
use CGI::Cookie; my $c = new CGI::Cookie( -name => 'COOKIENAME', ... -domain => '.domain.com' ); print "Set-Cookie: $c\n";
my %temp = parse CGI::Cookie($ENV{HTTP_COOKIE}); my %cookies; foreach (keys %temp) { $cookies{$_} = shift @{$temp{$_}{value}}; }
print header(); my $debug = 1; # READ COOKIE CODE ... print "$_: $cookies{$_}<BR>\n"; } }
www.com | www.net | www.org
No recent polls found