#!/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