Select Code to Download

use Foo qw(Bar Baz);

use Foo ();
use Foo::Bar ();
use Foo::Baz ();

my @module = qw(Bar Baz); # allowable modules
my %module = map {$_ => 1} @module; # easy lookup of modules 
...
        warn "Foo::$_: $@"; # could be die also if you prefer
    }
} #import