package Horse;

use 5.006;
use strict;
use warnings;
use Animal;
our @ISA = qw(Animal);

sub sound { "neigh" }