#!/usr/bin/perl
##
## Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
## Creation Date: Wed Jul 21 12:04:32 PDT 1999
## Last Modified: Wed Jul 21 12:30:36 PDT 1999
## Filename:      /home/httpd/cgi-bin/testing
## Syntax:        Perl 5; CGI
## $Smake:        cp -f %f /home/httpd/cgi-bin/%b
##
##

print <<"EOT";
Content-type: text/html

<html>
<head>
<title> Testing ground for perl CGI scripts </title>
</head>
<body bgcolor=#eeeeee>

<br>
<ul>
<pre>
EOT



foreach $key (sort keys %ENV) {
   print $key, " = ", $ENV{$key}, "\n";
}



print <<"EOT";
</pre>
</ul>
</body>
</html>
EOT


exit(0);

