#!/usr/bin/perl 
use CGI ':standard';
print header, start_html("CGI Environment");
print "<h1>CGI Environment</h1>";
$id = $$ . $ENV{'REMOTE_ADDR'} . time();
print "<b>Your unique id is $id</b><br><p>";
print "<p>The process id is $$<p>";
foreach $env_var (keys %ENV) {
  print "<B>$env_var</B> = $ENV{$env_var}<BR>";
}
print end_html;