c:\>perl -MO=Deparse -e "sub foo(){2};*::foo=sub(){3};print foo();" sub foo () { 2; } *foo = sub () { 3; } ; print 2; -e syntax OK