package mammal::badger; use vars qw(@ISA); @ISA = qw (mammal); -------- package mammal::badger; BEGIN { @mammal::badger::ISA = qw (mammal); }