#!/usr/bin/perl -wT
use strict;

my $CGI = new CGI;

print( $CGI->header(),
       $CGI->start_html( -title => 'Save the Environment' ),
       $CGI->h1( 'Here are the $ENV variables I see' )
      );
print $CGI->p( "$_ = $ENV{$_}" ) for ( keys %ENV );
print $CGI->end_html();