#!/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 "content-type: text/html\n\n";
# Skriv ut i en fin tabell:
print "<p>Query-string: ", $ENV{ QUERY_STRING }, "\n";
print "<table border>\n";
foreach my $field ( keys %qs )
{
    print "<tr><td>", $field, "<td>", $qs{ $field }, "\n";
}
print "</table>\n";