Select Code to Download

package Foo;
my $coderef = sub { no strict 'refs'; ${ (caller)[0] . "::global" } };
$global = 'in Foo';
...
$global = 'in Bar';

print &$coderef, "\n";