@isa

answer.txt

hello

ISA.pl

#!/usr/bin/env perl

use strict;
use warnings;

package Foo;

sub hoge{ return "hello" }


package Bar;

our @ISA = ( 'Foo' );
sub new{ bless {}, 'Bar' }


package main;

my $bar = Bar->new;
print $bar->hoge;