#!/usr/bin/perl --
print "Content-type: text/html\n\n";
print "
\n";
# Perl Version
print "PERL version is $]\n";
print "
\n";
# Environment
foreach(sort(keys %ENV)) { print"\$ENV{'$_'}=$ENV{$_}
\n"; }
print "
\n";
# Iclude Path
print "# Iclude Path
\n";
foreach(@INC) { print "$_
\n"; }
print "
\n";
# Module
$module_path = join(" ", @INC);
open(PROC,"find $module_path -type f -name \"*.pm\" |");
@proc = ;
close(PROC);
print join("
\n", @proc);
print "\n";
exit;