package Foo;
my $coderef = sub { $global };
$global = 'in Foo';

package Bar;
$global = 'in Bar';

print &$coderef;