#!perl
use CGI qw(:all);

print CGI::header(-type=>'text/plain') if $ENV{GATEWAY_INTERFACE};
print q/PERL5LIB: /, $ENV{PERL5LIB}, "\n";
print q/PERLLIB: /, $ENV{PERLLIB}, "\n";
print q/PATH: /, $ENV{PATH}, "\n";
print q/@INC: /, qq/@INC/, "\n";