package Lab; use Dog; @ISA = qw( Dog ); #functions go here... 1;