#!/usr/bin/perl
use CGI;
my $cgi = new CGI();
print $cgi->header();
foreach my $key (keys %ENV) {
	print "$key: $ENV{$key}<br />\n";
}

##</code><code>##

#!/usr/bin/perl
use Apache;
my $r = Apache->request;
$r->content_type("text/html");
$r->send_http_header;
foreach my $key (keys %ENV) {
	print "$key: $ENV{$key}<br />\n";
}

##</code><code>##

if ($ENV{MOD_PERL}) {
    use Apache;
    my $r = Apache->request;
    $r->content_type("text/html");
    $r->send_http_header;
} else {
    print $cgi->header();
}