package A;
sub foo { print "$_[0]\n" }
package B;
@ISA = qw(A);
package main;
B->foo();

__END__
$ perl /tmp/p
B