$ perl -we'package Foo; sub _ { print "hi" } package Bar; _; main::_'
hihi