http://qs321.pair.com?node_id=1086384


in reply to checking for all packages

There's no doubt some more sophisticated way of doing this, but I'd probably just try to require each package in turn in a string eval. This should give you the idea:

#!/usr/bin/perl use strict; use warnings; my @packages = qw/ Net::IP Net::CIDR List::BinarySearch /; for my $package (@packages) { eval "require $package"; if ($@) { print "Couldn't find package '$package'\n"; } else { print "Found package '$package'\n"; } }