Select Code to Download

for (qw( foo bar )) {
   no strict 'refs';
   $_->() || die "Command $_ did not return true!\n";
}

for (
   [ foo => \&foo             ],
...
   my ($name, $sub) = @_;
   $sub->() || die "Command $name did not return true!\n";
}