# Dog ISA Animal
# Dog::Poodle ISA Dog
# Dog::Collie ISA Dog

my $fluffy = new Dog::Poodle('fluffy');
my $spot = new Dog::Poodle('spot');
my $fido = new Dog::Collie('fido');
my $stray = new Dog();