#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print <
\n";
CGI Environment
HTML print "DOCUMENT_URI = $ENV{'DOCUMENT_URI'}
\n"; foreach $env_var (keys %ENV) { print "$env_var = $ENV{$env_var}
\n"; } print "PERL Version = $]
\n"; print "\@INC = "; foreach $srch_path (@INC) { print "[$srch_path] "; } print "
\n"; print "