#!/usr/bin/perl -w
use strict;
my %cookie;
$ENV{ HTTP_COOKIE } ||= "";
foreach my $pair ( split /; /, $ENV{ HTTP_COOKIE } )
{
my( $name, $value ) = split( /=/, $pair );
$name =~ s/\+/ /g;
$value =~ s/\+/ /g;
$name =~ s/%(..)/pack "C", hex $1/eg;
$value =~ s/%(..)/pack "C", hex $1/eg;
$cookie{ $name } = $value;
}
####################
$cookie{'name'} ||= "okände främling";
$cookie{'color'} ||= "white";
print "Content-Type: text/html\n\n";
print "Hej\n";
print "Hej
\n";
print "Oh, välkommen, $cookie{'name'}!!\n";
print "\n";