#!/usr/local/bin/perl -w

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

$base_dir = $0;
$base_dir =~ s/\\/\//g;  #substitute NT \ for /
if(rindex($base_dir,"/") > 0) {
	$base_dir = substr($base_dir,0,rindex($base_dir,"/"));
} else {
	$base_dir = '.';
}

print "Perl Version: $]\n\n";

print "Perl Modules are installed in:\n";
for $i ( @INC ) {
	print "    $i\n";
}
print "\n";

print "The directory that contains this script is: $base_dir\n\n";

if( eval{ require CGI } ) {
	print "CGI $CGI::VERSION is installed.\n";
} else {
	print "CGI is not installed.\n";
}

if( eval{ require CGI::Carp } ) {
	print "CGI::Carp $CGI::Carp::VERSION is installed.\n";
} else {
	print "CGI::Carp is not installed.\n";
}

if( eval{ require LWP } ) {
	print "LWP $LWP::VERSION is installed.\n";
} else {
	print "LWP is not installed.\n";
}

if( eval{ require URI::Escape } ) {
	print "URI::Escape $URI::Escape::VERSION is installed.\n";
} else {
	print "URI::Escape is not installed.\n";
}

if( eval{ require DBI } ) {
	print "DBI $DBI::VERSION is installed.\n";
} else {
	print "DBI is not installed.\n";
}

if( eval{ require DBD::CSV } ) {
	print "DBD::CSV $DBD::CSV::VERSION is installed.\n";
} else {
	print "DBD::CSV is not installed.\n";
}

if( eval{ require DBD::mysql } ) {
	print "DBD::mysql $DBD::mysql::VERSION is installed.\n";
} else {
	print "DBD::mysql is not installed.\n";
}

if( eval{ require Storable } ) {
	print "Storable $Storable::VERSION is installed.\n";
} else {
	print "Storable is not installed.\n";
}
print "\n";