package Foo; our @ISA = qw(Bar); #### package Foo; use base 'Bar';