#!/usr/bin/perl -w
use strict;
print "content-type: text/html\n\n";

# $ENV{ QUERY_STRING } är nu blaj=glass&mera=godis&tredje=laktris

my @name_value_pairs = split( /&/,  $ENV{ QUERY_STRING } );
#  @name_value_pairs är ( "blaj=glass", "mera=godis" )

my %qs;
foreach my $pair ( @name_value_pairs )
{
    my( $name, $value ) = split( /=/, $pair );
    $qs{ $name } = $value;
}

# Skriv ut i en fin tabell:
print "Query-string: ", $ENV{ QUERY_STRING };
print "<table border>\n";
foreach my $field ( keys %qs )
{
    print "<tr><td>", $field, "<td>", $qs{ $field }, "\n";
}
print "</table>\n";