Select Code to Download

my $skip = (Dog) Animal->new;
or
my Dog $skip = Animal->new;

my Dog @showdogs;

foreach  my $dog(Dog @showdogs)
{
   print $dog->bark(),"\n";
}

method bark_at ($some_other_dog, $message)

sub method bark_at ($some_other_dog, $message)
{
...
      die "Not valid class" unless is_obj_instance("Dog", $some_other_
+dog);
   }
}