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