package A;

...
sub AUTOLOAD {

}

package B;
@ISA = qw(A);
...

package main;
my $object = new B();

$object->method();