foreach my $p (@prereqs) { (my $x = $p) =~ s[::][/]g; $x .= '.pm'; eval { require $x; } if ($@) { print "Missing prerequisite - $p\n"; exit 0; } }