package Foo; use strict; our @ISA = 'Bar'; ... #### package Foo; use strict; use vars qw(ISA); @ISA = 'Bar'; ... #### package Foo; @ISA = 'Bar'; use strict; ... #### package Foo; use strict; @Foo::ISA = 'Bar'; ... #### package Foo; use strict; use base 'Bar'; ...