#!/usr/bin/perl print "Content-type: text/html\n\n"; print "
";
foreach $e (%ENV) {
print "$e
";
}
print "
";
$ct = 0;
foreach $n (%ENV) {
$ct++;
if (int($ct / 2) eq $ct / 2) {
print "$n
\n";
} else {
print "$n = ";
}
}
print "
"; print "SERVER_NAME= $ENV{'SERVER_NAME'}
"; print "In other words, you are using the server $ENV{'SERVER_NAME'}
"; print "\n\n";