#!/usr/bin/perl -T

use strict;
use warnings;

print "Content-type: text/plain\n\n";

$ENV{PATH}="/usr/bin";

print "PARENT: PATH is $ENV{PATH}\n";
print " CHILD: PATH is ",`echo \$PATH`,"\n";

##</code><code>##

PARENT: PATH is /usr/bin
 CHILD: PATH is /usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/X11R6/bin

##</code><code>##

<Location /cgi-perl>
    Options +ExecCGI
    PerlSendHeader On
    SetHandler perl-script
    PerlHandler ModPerl::Registry
    PerlOptions +SetupEnv
    allow from all
</Location>