#!C:/Perl/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##
print <<"END";
Content-type: text/html
Environment
Environment variables
END
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "- ${var}=\"${val}\"
\n";
}
print '
';
## print '';
##while (<>) {
## print $_;
## print "\n";
##}
##print '';
while (<>) {
$buffer = $_;
$buffer =~ s/&/&\;/g;
$buffer =~ s//>\;/g;
print $buffer;
}
print "--------------END----------------\n";
## print ']]>';
print '';