print "Content-type: text/html\n\n"; @pairs = split(/&/, $ENV{QUERY_STRING}); for ($x = 0; $x < @pairs; $x++) { ($key, $value) = split(/=/, $pairs[$x]); $in{$key} = $value; } print <