#------------------------------------------------------------------------ # Simple Perl script to echo a Form's input #------------------------------------------------------------------------ print "Content-type: text/html\n\n"; if ($ENV{'REQUEST_METHOD'} eq "get") { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } print "\n"; print "Query Results\n"; print "\n"; print "Query Results\n"; print "
\n";

@nvpairs = split(/&/, $buffer);
foreach $pair (@nvpairs)
{
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    print "$name = $value\n";
}
print "
\n"; print "\n";