c:\>perl -MO=Deparse -e "sub foo(){2};*::foo=sub(){3};print foo();"
sub foo () {
    2;
}
*foo = sub () {
    3;
}
;
print 2;
-e syntax OK
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.