#!/usr/bin/perl -w
use strict;
print "content-type: text/html\n\n";
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;
}
print "Färgresultat\n";
print "Färgresultat
\n\n";
#Lägg märke till citationstecknen!!!
#print( "", $qs{"text"}, "\n" );
print( "
$qs{\"text\"}\n" );
print "\n";