perl -le'sub foo(){2};*::foo=sub(){3};print &foo()' #### print *foo{CODE}(); print eval 'foo()';