#!/usr/bin/perl
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html>
<head>
<title>Print Environment</title>
</head>
<body>
EndOfHTML
print "<h2>Environment variables:</h2>\n";
foreach $key (sort(keys %ENV)) {
print "$key = $ENV{$key}<br>\n";
}
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
print "<h2>standard input STDIN:</h2>\n";
print "$in\n";
print "</body>\n</html>";