Select Code to Download

sub foo {
    $_[0]->()
...
}

foo(\&bar(), stuff);

sub foo {
    my $func = shift;
    $func->(@_);
}