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