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

##</code><code>##

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