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

##</code><code>##

my Dog @showdogs;

##</code><code>##

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

##</code><code>##

method bark_at ($some_other_dog, $message)

##</code><code>##

sub method bark_at ($some_other_dog, $message)
{
  if(DEBUG)
   {
      die "Not valid class" unless is_obj_instance("Dog", $some_other_dog);
   }
}