#!/usr/bin/perl use CGI; use strict; my $cgi = new CGI; my %foo = (key1=>"value1",key2=>"value2"); my %from_cookie = $cgi->cookie(-name=>'foo'); if(%from_cookie) { print "Content-type:text/html\n\n"; print "\n"; foreach my $key(keys %from_cookie) { print "$key = [$from_cookie{$key}]
\n"; } print "\n"; } else { my $cookie = $cgi->cookie( -name=>'foo', -value=>\%foo, -expires=>'+1h', -path=>'/', -domain=>'somedomain.com', ); print $cgi->header(-cookie=>$cookie); print "I have set the cookie\n"; } exit;