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

if ($cookie{'visited'} eq ""){print "Set-Cookie:
speed=$speed;\n\n";}else{print "Content-type:text/html\n\n";}