#!/usr/bin/perl use strict; my $crlf = "\015\012"; print "Content-Type: text/html$crlf$crlf", "\n\n", "

Required Modules
\n"; for my $module (qw(strict CGI File::Basename Getopt::Long HTML::Parser LWP::UserAgent POSIX Text::Template URI URI::URL)) { print "checking for $module... "; eval "use $module"; print $@ ? substr($@,0,index($@," at ")) : "ok"; print "
\n"; } print "

\n

Optional Modules
\n"; for my $module (qw(XML::Parser XML::LibXML XML::Checker::Parser)) { print "checking for $module... "; eval "use $module"; print $@ ? substr($@,0,index($@," at ")) : "ok"; print "
\n"; } print "

\n\n\n";