#!/perl/bin/perl -wT

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

print header;
print start_html( "Environment Variables" );

foreach my $key( sort( keys( %ENV ) ) ) {
	print "$key = $ENV( $key )\n";
}

print end_html;