Help for this page
sub a { sub x { print "I came from a\n"; } ... x(); a(); x(); b(); x();
I came from b I came from b I came from b
sub a { local(*x) = sub { "from a" }; ... sub doit { print "I came ", x(), "\n"; }