package Animal;
sub new (
  my $name = shift;
  my $data = shift;
  if($name == 'llama') {
    return new Animal::Llama($data);
  } elseif ($name == 'camel') {
    return new Animal::Camel($data);
  } else {
    warn "Unknown animal type\n";
    return new Animal::Generic($name, $data);
  }
}