#!/usr/bin/perl -w 
use strict;
use CGI qw/ :all /;
use CGI::Carp qw/ fatalsToBrowser /;

print header,start_html;
print h1('Environmental Variables');
print ul(map{li($_ . ": " . $ENV{$_})} sort keys %ENV);
print h1('CGI Parameters');
print ul(map{li($_ . ": ". param($_))} sort param());
print end_html;
exit(0);