#!/usr/bin/perl

use CGI;

$cgi = new CGI;
print $cgi->header(-type=>'text/html');
print $cgi->start_html(-title=>'Is it running under Mod_perl?',
		       -bgcolor=>'white',
		       -textcolor=>'black',
		       );
print "<H1>It's running <STRONG>";
if (exists $ENV{MOD_PERL}) {
    print "mod_perl!\n";
} else {
    print "CGI!\n";
};
print "</STRONG></H1>\n";

print "<ol>\n";
while (($key, $val) = each %ENV) {
    print "<li> $key : $val\n";
}
print "</ol>\n";

print $cgi->end_html;