note
farang
<p>One solution is an <tt>eval</tt> <i>expression</i> with explicit <tt>$_</tt>
<c>
#!/usr/bin/env perl -l
use strict;
use warnings;
my @required = qw(
File::Basename
File::Copy
File::Find
);
my @missing;
foreach (@required) {
eval "require $_";
push @missing, $_ if $@;
}
print "missing---> @missing" if @missing;
print for sort grep m{^File/[BCF]} => keys %INC;
__END__
File/Basename.pm
File/Copy.pm
File/Find.pm
</c>
</p>
1080706
1080706