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