Geno Patterson -- 5alist.htm


#!/usr/bin/perl
# 
#  5alist.htm

print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Geno Patterson -- 5alist.htm</title></head>
<body>

<center>
<table noresize border="1" width="50%">
	<th align="center" colspan="2">Environment Variables</th>

	<tr>
	<td align="center" width="50%">
	<b> key </b></td>
	<td align="center">
	<b> \$ENV{\$key} </b></td>
	</tr>



EndOfHTML
;

foreach $key (sort(keys %ENV)) {
	print "<tr><td align=center width=50% bgcolor=blue>";
	print "<B><font color=yellow>$key</B></font>";
	print "</td><td align=center bgcolor=red>";
	print "<B><font color=yellow>$ENV{$key}</B></font>";
	print "</td></tr>";
}

print "</table></center>";
print "<hr>";
print "<A href=mailto:gp52380@swt.edu>GP52380@swt.edu</A>";

print "</body></html>";