Select Code to Download

sub foo { print 'Foo!' };

...
};

bar( \&foo );

sub foo1 { print 'Foo! One' };
sub foo2 { print 'Foo! Two' };

bar( \&foo1 );
bar( \&foo2 );

sub foo1 { print 'Foo! One' };
...

local $output = \&foo2;
bar();

sub foo { print 'Foo!' };

...
    };
    bar();
}