package Cow; use strict; @Cow::ISA = qw/Animal/; sub sound { "moo" }; 1;