CGI environment variable
#!/usr/local/bin/perl use CGI; $co = new CGI; print $co->header, $co->start_html('CGI Environment Variables Example'), $co->center($co->h1('CGI Environment Variables Example')); foreach $key (sort keys %ENV) { print $co->b("$key=>$ENV{$key}"), $co->br; } print $co->end_html;