package main;
my $i = 23;
&Foo::test();

package Foo;
sub test {
    my $context = uplevel_context();
    eval('print $i', $context);
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.