package main; my $i = 23; &Foo::test(); package Foo; sub test { my $context = uplevel_context(); eval('print $i', $context); }