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

##</code><code>##

package A;
sub write(&) {}

package B;
use subs qw(write);
*write = \&A::write;

write { 42 }