perl -e "sub foo(){2};BEGIN{*::foo=sub(){3};}print foo()"