#!/usr/bin/perl -w
########
# see_environment.cgi
#
# Poor man's version demo of what calls in CGI.pm do.
############
print "Content-type: text/html\n\n";
print "
Environment Variables
Environment Variables:
";
foreach $key (keys %ENV) {
print "
| $key |
$ENV{$key} |
";
}
print "
Standard Input:
";
@lines = <>;
if (@lines) {
foreach $lin (@lines) {
chomp $lin;
print $lin, "
\n";
}
}
else {
print "(none)
";
}
print "
Jim Mahoney
";