use strict;
use warnings;
# https://perlmonks.org/?node_id=11137026


package Base;

use Data::Dumper;
sub AUTOLOAD {
    our $AUTOLOAD;
    warn "$AUTOLOAD => ", Dumper \@_;
}

#*UNIVERSAL::AUTOLOAD = \&AUTOLOAD;


package Bla;

*AUTOLOAD = \&Base::AUTOLOAD;           # aka Bla::AUTOLOAD

some_sub(1,2,3);



*Foo::AUTOLOAD = \&Base::AUTOLOAD;

Foo::some_sub(4,5,6)