Select Code to Download

sub foo {
    my $bar = sub {
...
    };
    $bar->();
};

sub foo {
    local *bar = sub {
...
    };
    bar();
};