#!/opt/bin/perl -w

print "running $0 in Perl $]\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
	Template::Toolkit
	HTML::Template 
	HTML::TokeParser
	PDF::Template
	Tie::Array
	Tie::Hash
	Time::localtime
	) )
{
    print eval "require $_"
             ? "$_ ok: \n"
             : "\t$_ failed: \n"
}

__DATA__
             : "$_ failed: $@\n"
print "This is diotalevi's idea\n";
print "running $0 in Perl $]\n";
print "starting FOR loop\n";
foreach qw(
	CGI
	Data::Dumper;
	Dumpvalue;
	File::Find;
	Time::localtime;

	CGI::Application;
	Excel::Template;
	HTML::Template;
	PDF::Template;
        ) {
#print "ending FOR loop, starting PRINT EVAL\n";
    print eval "require $_"
             ? "$_ ok\n"
             : "$_ failed: $@\n"
}
#
#