#!/usr/bin/perl -w

$stuff_length = $ENV{'CONTENT_LENGTH'};
read (STDIN, $pageHTML, $stuff_length);
$pageHTML =~ s/^.+=//;
$pageHTML =~ s/\+/ /g;
$pageHTML =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
$pageHTML =~ s/</&lt;/g;
$pageHTML =~ s/>/&gt;/g;
print "Content-type: text/html\n\n";
print "<HTML><BODY><PRE>";
print $pageHTML;
print "</PRE></BODY></HTML>\n";