#!/usr/bin/perl

print "Content-Type: text/html\n\n";
print "<form method=POST enctype=\"multipart/form-data\">\n";
print "<input type=text name=\"textname1\" value=\"textvalue1\"><br>\n";
print "<input type=hidden name=\"hiddenname2\" value=\"hiddenvalue2\"><br>\n";
print "<input type=file name=\"filename3\"><br>\n";
print "<input type=submit name=\"submitname4\" value=\"Submit4\"><br>\n";
print "</form>\n";

print "<table border=1>\n";
foreach my $k (keys %ENV) {
	print "<tr><td>$k</td><td>$ENV{$k}</td></tr>\n";
}
print "</table>\n";

$v = '';
while(<STDIN>) { $v .= $_; }
$len = length($v);
print "LENGTH: $len<br>\n";
print "STDIN:<br>\n";
$v =~ s/\r/<font color=red>\\r<\/font>/gs;
$v =~ s/\n/<font color=red>\\n<\/font><br>\n/gs;
$v =~ s/\t/<font color=red>\\t<\/font><br>/gs;
$v =~ s/[^A-Za-z0-9\ \-\=\~\!\@\#\$\%\^\&\*\(\)\_\+\`\[\]\\\{\}\|\;\'\:\"\,\.\/\<\>\?\r\n\t]/<font color=blue>?<\/font>/gs;
print $v;