#!/usr/bin/perl -w
# FILE: cgi_or_mod-perl.pl

use strict;
use warnings;

use CGI qw(:standard);
print header(), start_html ("CGI or mod-perl test");

print "If 'GATEWAY_INTERFACE = CGI/1.1' then regular CGI.<BR>";
print "If 'GATEWAY_INTERFACE - CGI-Perl/1.1' then mod-perl.<BR>";
print "<BR>";

print "========== TESTING ABILITY OF A PERL SCRIPT TO ACCESS ENVIRONMENT VARIABLES ========<BR>";
print "REMOTE_ADDR = $ENV{REMOTE_ADDR}<BR>";
print "REMOTE_PORT = $ENV{REMOTE_PORT}<BR>";
print "HTTP_REFERER = $ENV{HTTP_REFERER}<BR>";
print "<BR>";

print "========== FULL DUMP OF ENVIRONMENT VARIABLES ==========<BR>";
print map { "$_ = $ENV{$_}<BR>\n"} sort(keys(%ENV));
print "<BR>";

print end_html();

exit (0);