formpost.pl

#!/usr/local/bin/perl

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $input);

foreach $pair (@pairs) {
     ($name, $value) = split(/=/, $pair);
     $value =~ tr/+/ /;
     $value =~ s/%([\dA-Fa-f]{2})/pack("C", hex($1))/eg;
     $INPUT{$name} = $value;
}

print "Content-type: text/html\n\n";

print <<HTMLBody;

<HTML>
<HEAD><TITLE>Results from the Form</TITLE></HEAD>

<BODY bgColor="white">
<CENTER>

<H1>Results from the Form</H1>

Your name is $INPUT{name} and your email is $INPUT{email}

</CENTER>
</BODY>
</HTML>

HTMLBody