Select Code to Download

use subs qw(write);
sub write(&) { ... }
write { 42 }

package A;
sub write(&) {}
...
*write = \&A::write;

write { 42 }