#!/usr/bin/perl
require "../cgi-lib.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";
print "<HTML>\n";
print "<BODY><style>body { font-size: 12px; }</style>\n";
foreach (sort (keys %ENV)) { print "$_ = \"$ENV{$_}\"<BR>\n"; }
foreach my $p (keys %params) {
    print "PARAM($p) = $params{$p}<br>\n";
}
print "<IMG SRC=\"env.pl\">\n";
print "</BODY>\n";
print "</HTML>\n";