package A;
sub write(&) {}

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

write { 42 }