#!/usr/bin/perl -w
use strict;

my %qs;
$ENV{ QUERY_STRING } ||= "";
foreach my $pair ( split /&/,  $ENV{ QUERY_STRING } )
{
    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;

    $qs{ $name } = $value;
}

####################

print "Set-Cookie: name=$qs{'name'}\n";
print "Set-Cookie: color=$qs{'color'}\n";
print "Content-Type: text/html\n\n";


print "<h1>Nu är du klar...</h1>\n";
print "<a href=cookie_hello.cgi>Fortsätt</a>\n";