$ perl -e'sub foo {print( (caller 0)[3], $/)} local *bar = \&foo; bar()'
main::foo
$ perl -e'$foo = sub {print( (caller 0)[3], $/)}; local *bar = $foo; bar()'
main::__ANON__
$