#!/usr/bin/perl --

use Data::Dumper;
print "Content-Type: text/plain\n\n",
      Dumper \%ENV;

##</code><code>##

$VAR1 = {
          'SCRIPT_NAME' => '/cgi/test-cgi',
          'SERVER_NAME' => '[censored]',
          'SERVER_ADMIN' => '[no address given]',
          'PERL_SEND_HEADER' => 'On',
          'REQUEST_METHOD' => 'GET',
          'SCRIPT_URI' => 'http://[censored]/cgi/test-cgi',
          'SCRIPT_FILENAME' => '/Library/Webserver/Mod_Perl-Executables/test-cgi',
          'SERVER_SOFTWARE' => 'Apache/1.3.33 (Darwin) mod_perl/1.29',
          'QUERY_STRING' => '',
          'REMOTE_PORT' => '53739',
          'SERVER_SIGNATURE' => '<ADDRESS>Apache/1.3.33 Server at [censored] Port 80</ADDRESS>
',
          'SERVER_PORT' => '80',
          'REMOTE_ADDR' => '127.0.0.1',
          'SERVER_PROTOCOL' => 'HTTP/1.0',
          'PATH' => '/bin:/sbin:/usr/bin:/usr/sbin:/usr/libexec:/System/Library/CoreServices',
          'REQUEST_URI' => '/cgi/test-cgi',
          'GATEWAY_INTERFACE' => 'CGI-Perl/1.1',
          'SCRIPT_URL' => '/cgi/test-cgi',
          'SERVER_ADDR' => '127.0.0.1',
          'DOCUMENT_ROOT' => '/Library/WebServer/Documents',
          'MOD_PERL' => 'mod_perl/1.29'
        };

##</code><code>##

$VAR1 = {
          'SCRIPT_NAME' => '/perl/test-cgi',
          'SERVER_NAME' => '[censored]',
          'SERVER_ADMIN' => '[no address given]',
          'PERL_SEND_HEADER' => 'On',
          'REQUEST_METHOD' => 'GET',
          'SCRIPT_URI' => 'http://[censored]/perl/test-cgi',
          'SCRIPT_FILENAME' => '/Library/Webserver/Mod_Perl-Executables/test-cgi',
          'SERVER_SOFTWARE' => 'Apache/1.3.33 (Darwin) mod_perl/1.29',
          'QUERY_STRING' => '',
          'REMOTE_PORT' => '53741',
          'SERVER_SIGNATURE' => '<ADDRESS>Apache/1.3.33 Server at [censored] Port 80</ADDRESS>
',
          'SERVER_PORT' => '80',
          'REMOTE_ADDR' => '127.0.0.1',
          'SERVER_PROTOCOL' => 'HTTP/1.0',
          'PATH' => '/bin:/sbin:/usr/bin:/usr/sbin:/usr/libexec:/System/Library/CoreServices',
          'REQUEST_URI' => '/perl/test-cgi',
          'GATEWAY_INTERFACE' => 'CGI-Perl/1.1',
          'SCRIPT_URL' => '/perl/test-cgi',
          'SERVER_ADDR' => '127.0.0.1',
          'DOCUMENT_ROOT' => '/Library/WebServer/Documents',
          'MOD_PERL' => 'mod_perl/1.29'
        };