A real working version of Sub::Uplevel and maybe some more control over the call stack (context objects?). :)

Example:

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

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