#!C:/apache2triadpath/perl/bin/perl.exe print "Content-type: text/html\n\n"; # # general info # print <

general info

perl version: $]

perl compiled on: $^O

perl executable: $^X

location of perl: HTML $per = $^X ; $per =~ s/perl.exe|PERL.EXE//; @perlloc = ("$per"); foreach $loc(@perlloc){ print "$loc
\n"; } print <
include paths: HTML foreach $item(@INC){ if ($item ne "."){ print "$item
\n"; } } print <
HTML # # environment variables # print <environment variables HTML foreach $fieldname(keys %ENV){ print "\n"; print "\n"; } print < HTML # # perl modules # use File::Find; sub count { return $found{$a}[1] cmp $found{$b}[1]; } sub ModuleScanner { if ($File::Find::name =~ /\.pm$/){ open(FILE,$File::Find::name) || return; while(){ if (/^ *package +(\S+);/){ push (@modules, $1); last; } } } } find(\&ModuleScanner,@INC); foreach $line(@modules){ $match = lc($line); if ($found{$line}[0] >0){ $found{$line} = [$found{$line}[0]+1,$match] }else{ $found{$line} = ["1",$match]; } } @modules = sort count keys(%found); print <perl modules

Server Variable Value
$fieldname $ENV{$fieldname}
HTML $count=0; foreach $mod(@modules){ chomp $mod; $count++; if ($count == 1){ print "\n"; } if ($count == 2){ print "\n"; } if ($count == 3){ print "\n"; $count = 0; } } print < HTML exit;
$mod $mod $mod

perl version:	$]
perl compiled on:	$^O
perl executable:	$^X
location of perl:	HTML $per = $^X ; $per =~ s/perl.exe\|PERL.EXE//; @perlloc = ("$per"); foreach $loc(@perlloc){ print "$loc \n"; } print <
include paths:	HTML foreach $item(@INC){ if ($item ne "."){ print "$item \n"; } } print <