#!/usr/bin/perl
# Michael Tartaglia - Displaying Environment variables

require template;

template::startHTML("Program # 2","CGI Environment Variables");


# PRINT OUT CONTENTS OF ENV HASH

print "<TABLE BORDER=0 CLASS=\"noBr\" BGCOLOR=\"#FFFFFF\">\n";
foreach $key (sort(keys %ENV)) {
	@show = split(',', $ENV{$key});
	print "<TR><TH><BR>$key</TH></TR><TR>",
	      "<TD ALIGN=\"center\"><SMALL>@show</SMALL></TD></TR>\n"
	      if ($ENV{$key} ne "");
}
print "</TABLE>\n";

template::endHTML();