print "Content-type: text/html\n";
print "Set-Cookie: foo=bar; path=/; expires=Mon, 01-Jan-2001 00:00:00 GMT\n\n";

##</code><code>##

@nvpairs=split(/; /, $ENV{'HTTP_COOKIE'});
foreach $pair (@nvpairs) {
   ($name, $value) = split(/=/, $pair);
}

##</code><code>##

$cookie{$name} = $value;