BEGIN { *write = \&A::write }   # Doesn't work!