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