#!/usr/local/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "The Environment\n";
print "\n\n";
print "\n";
print "The Environment\n";
print "\n";
print "| Key | Value |
|---|
\n";
foreach $var ( sort( keys(%ENV) ) )
{
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|"|g;
print "| ${var} | ${val} |
\n";
}
print "\n";
print "
\n";
print "Source Code
\n";
print "\n";
print "\n";