#!/usr/local/bin/perl

sub PrintEnv
{
  foreach $key ( sort keys %ENV )
  {
    print "$key = <B>$ENV{$key}</B><BR>\n";
  }
}

print "Content-type: text/html\n\n";

print "<HTML><HEAD><TITLE>CGI Environmental Variables</TITLE></HEAD>\n";
print "<BODY><H1>CGI Environmental Variables</H1>\n<P>\n";

&PrintEnv;

print "</P>\n</BODY></HTML>";
exit( 0 );
