#!/usr/bin/perl
# Read in text
$method = $ENV{'REQUEST_METHOD'};
if ($method eq "GET")
{
$buffer= $ENV{'QUERY_STRING'};
}else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
# Split information into name/value pairs
my @pairs = split (/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
$FORM{$name} = $value;
}
print "Content-type:text/html\r\n\r\n";
print "";
print "";
print "CGI Program";
print "";
print "";
foreach $name (sort keys(%FORM))
{
print "$name = $FORM{$name}
\n";
}
print "";
print "";
1;