#!/usr/bin/perl
use CGI::Carp qw/fatalsToBrowser/;
$ENV{PATH} = "/bin:/usr/bin";
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "CGI Environment\n";
print "CGI Environment
\n";
print "\n";
print "\n";
print "
\n";
print "Environment Variables
\n";
print 'click here';
print "
\n";
foreach $key (keys %ENV) {
print "- $key = $ENV{$key}\n";
}
print "
\n
\n";
$whoami = `/usr/bin/whoami`;
print "whoami : $whoami
\n";
$id = `/usr/bin/id`;
print "id : $id
\n";
print "\n";
print "\n";