#!/usr/bin/perl
print<<'eof';
Content-Type: text/html
<html>
<head><title>CGI Environment Variables</title></head>
<body>
eof
foreach $index (keys %ENV){
   print "$index => $ENV{$index} <br>";
}
print<<'eof';
</body>
</html>
eof