Select Code to Download

sub foo {}
sub bar {}
...
if ( my $ref = main->can($method) ) {
    $ref->();
}

{
    sub foo{}
...
                 bar => \&bar,
                 baz => \&baz,
                 qux => \&qux );