#!/opt/bin/perl -w
# #/usr/bin/perl -w
my $title = "Simple Page Return Script";
##### Print header #####################################################
######print "\n\n";
print "Content-type: text/html\n\n";
print "$title\n";
print "\n";
# print "\n";
print "Running $0 in Perl $]
\n";
print "\n";
for ( qw(
Carp
CGI
CGI::Application
Data::Dumper
DBD::CSV
DBD::SQLite
DBI
Dumpvalue
Excel::Template
File::Basename
File::Compare
File::Copy
File::Find
File::Find
File::Spec
File::stat
HTML::Template
HTML::TokeParser
PDF::Template
Tie::Array
Tie::Hash
Time::localtime
) )
{
print eval "require $_"
? "| $_ ok: |
\n"
: "| $_ failed: |
\n"
}
print "
\n";
##### Print footer #####################################################
print "
\n\n";
print "webmaster\@cantrall.net
\n";
### created Oct 07 2004 ###
print "Last revised on 12 Oct 2004 16:16
\n";
print "\n\n\n";
exit (0);