#!/usr/bin/perl -wT use CGI; $cgi = CGI->new; print $cgi->header; print <Print Environment EndOfHTML foreach $key (sort(keys %ENV)) { print "$key = $ENV{$key}
\n"; } print "";