#!/usr/local/bin/perl -wT
use CGI;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use vars qw($dataIn);
$dataIn = new CGI;
print $dataIn->header();
printEnv();
sub printEnv
{
my ($key);
print qq!
Environment Checker
!;
foreach $key (keys(%ENV))
{
print "\n| $key | \n" . %ENV->{$key} . " | \n
";
}
print qq!
!;
}