Sende array som cookie

Jeg er lige med på en lytter her....

Mule

Sådan skriver du til Cookies:
print "Set-Cookie: var1=Martin\n";
print "Set-Cookie: var2=Svarre\n";
print "Set-Cookie: var3=Gerne\n";

Sådan henter du alle dine cookies:
@pairs = split(/\; /,$ENV{'HTTP_COOKIE'});
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $cookie{$name} = $value;
#print "$name = $value<br>\n";
}

Husk.... at sætte cookies før du starter med at printe tekst på siderne!

Desuden er mine cookies ikke sikre... men slettes dog når browseren lukkes!

For at hente val1 ind i din browser skriver du $cookie{'val1'} - så printes indholdet af cookien val1