Select Code to Download

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

print *foo{CODE}();

print eval 'foo()';