запихнуть:
print "Set-Cookie: login=$login; path=/; \\n";
print "Set-Cookie: pass=$pass; path=/; \\n";
вывести:
$hum = $ENV{\'HTTP_COOKIE\'};
@hums = split(/\\;/, $hum);
foreach $extract (@hums) {
if ($extract =~ /login=/) { $login = $extract; }
if ($extract =~ /pass=/) { $pass = $extract; }
}
(undef, $login) = split(/=/, $login);
(undef, $pass) = split(/=/, $pass);
print "Content-type: text/html\\n\\n";
print "$login - Login, $pass - Pass";