package A;
sub foo { print "A::foo called\n" }
sub AUTOLOAD { print "A::AUTOLOAD called,  \$AUTOLOAD=$AUTOLOAD\n" }

package B;
@ISA = qw(A);

package main;
B::foo('B');

__END__

$ perl /tmp/p
Use of inherited AUTOLOAD for non-method B::foo() is deprecated at /tmp/p line 11.
A::AUTOLOAD called,  $AUTOLOAD=B::foo
$