package AA;

use base 'BB';

sub AUTOLOAD {
        my ($self,$extrainfo,@args ) = @_;
        print "Via AA:\n";
        print "extrainfo: $extrainfo \n";
        $superfunk = "SUPER::$AUTOLOAD";
        $self->$superfunk(@args);
}

1;