{
  package One;

  sub new     { bless [], shift }
  sub onefunc { print "$_[0] in One::onefunc" }

  package Two;

  @ISA = 'One';
}

my $two = Two->new;
$two->onefunc();

__output__

Two=ARRAY(0x80fba1c) in One::onefunc