$ perl -wE'sub o { sub i { say "foo"; } } i();'
foo