#!/usr/bin/perl -w
my $msg = "File Change Date 10-25-04 Mod03.pl\n";
my $title = "Simple Page Return Script";
my @list = qw(
CGI
CGI::Application
Data::Dumper
HTML::Template
);
##### 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(
CGI
CGI::Application
Data::Dumper
HTML::Template
) )
{
print eval "require $_"
? "| $_ ok: |
\n"
: "| $_ failed: |
\n"
}
print "
|
\n";
for ( @list) {
print eval "require $_"
? "| $_ ok: |
\n"
: "| $_ failed: |
\n"
}
print "
\n";
print @list;
##### Print footer #####################################################
print "
\n\n";
print "webmaster\@cantrall.net
\n";
### created Oct 07 2004 ###
print "$msg\n";
print "\n\n\n";
exit (0);