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