>perl -wle"sub AUTOLOAD { print 'A'; undef *AUTOLOAD; } f() for 1..2;"
A
Undefined subroutine &main::f called at -e line 1.