#!/usr/bin/perl -w
use strict;
## Läs in namn-värde-paren i %qs
my %qs;
$ENV{ QUERY_STRING } ||= "";
my @name_value_pairs = split( /&/, $ENV{ QUERY_STRING } );
foreach my $pair ( @name_value_pairs )
{
my( $name, $value ) = split( /=/, $pair );
$qs{ $name } = $value;
}
#print "content-type: text/plain\n\n";
### Skriv ut headern som sätter cookies
foreach my $field ( keys %qs )
{
print "Set-cookie: ", $field, "=", $qs{ $field }, "\n";
}
print "content-type: text/html\n\n";
print "Kakorna kommer!\n";
print "Kakorna kommer!
\n\n";
print "Detta är de kakor som din browser skickade till mig:
\n";
print $ENV{'HTTP_COOKIE'}, "\n\n";
print "
Följande kakor sätts i och med att detta paket når din browser: \n";
print "
\n";
foreach my $field ( keys %qs )
{
print "- ", $field, " = ", $qs{ $field }, "\n";
}
print "
\n";
print "\n";