package Sheep; use 5.006; use strict; use warnings; use Animal; our @ISA = qw(Animal); sub sound { "baaaah" }