Select Code to Download

$ perl -e 'sub FOO () { 1 } BEGIN{ *FOO = sub () { 2 }; } print FOO;'
Constant subroutine main::FOO redefined at -e line 1.
2