#! /usr/local/bin/perl
#
# Open HTML document
print "Content-type:text/html\n\n";
print "\n";
print "\n";
#Print arguments
print "CGI Arguments
\n";
print "Number of arguments: ", scalar(@ARGV), "\n";
print "
\n";
for ($i=0;$i\n";
print "| Argument number ",$i+1,": | \n";
print "$ARGV[$i] | \n";
print "\n";
}
print "
\n";
# Print what we got on STDIN
print "CGI STDIN
\n";
print "
\n";
$i=0;
while () {
$i++;
print "line $i: $_\n";
}
print "
\n";
if (! $i) {print "[no data on STDIN]\n"}
#Print the environment
print "CGI Environment Variables
\n";
print "\n";
foreach $VAR (sort keys(%ENV)) {
print "\n";
print "| $VAR | \n";
print " $ENV{$VAR} | \n";
print "
\n";
}
print "
\n";
#
# Close HTML document
print "\n\n";
print "\n";
exit (0);