sub make_animal
{
    my ($sound) = @_;
    if ($sound =~ /baa/)  { return Sheep->new; }
    if ($sound =~ /moo/)  { return Cow->new; }
    if ($sound =~ /oink/) { return Pig->new; }
}