#!/usr/bin/perl
##
##  printenv -- demo CGI program which just prints its environment
##

#!/usr/bin/perl
#!c:/Perl/bin/Perl.exe
# swap the first line and second line if the script runs on the Windows


BEGIN {
    my $b__dir = (-d '/home/loyaltyh/perl'?'/home/loyaltyh/perl':( getpwuid($>) )[7].'/perl');
    unshift @INC,$b__dir.'5/lib/perl5',$b__dir.'5/lib/perl5/x86_64-linux-thread-multi',map { $b__dir . $_ } @INC;
}




print "Content-type: text/plain\n\n";
foreach $var (keys(%ENV)) {
        $value = $ENV{$var};
        print "$var=\"$value\"\n";
}