#!/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;