CGI Perl

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