use ExtUtils::Installed;

my $inst = ExtUtils::Installed->new();
my @missing = $inst->validate("File::BaseName");
print @missing;

##</code><code>##

File::BaseName is not installed...