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