Select Code to Download

multifoo sub { $_ * 2}, sub { foo ($_) }, @things;

sub onefoo {
 my ($reasonably_named_sub, @params) = @_;
...
  $toDo->($foo);
 }
}