#!/usr/bin/perl
#Rename this file to 7a.pl before execution.
print "Content-type:text/html\n\n";
print "<html><head><title>Server Info</title></head><body>";
print "Server Details are as follows:<br><br>\n";
while (($key, $value) = each (%ENV)) {
print "$key: $value <br>\n";
}
print "</body></html>";