use AA;
AA->print("extrainfo","hi");

##</code><code>##

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;

##</code><code>##

package BB;

sub print {
        my ($self,$arg) = @_;
        print "I'm BB saying: $arg\n";
}

1;

##</code><code>##

package AA;


##</code><code>##

Via AA:
extrainfo: extrainfo
I'm BB saying: hi

##</code><code>##

I'm BB saying: extrainfo