>perl typetest.pl
Daffy is a Duck!
Daisy is a Duck!
Donald is not a duck! (in Donald)
"DuckCheck" is defined as: sub { $_->{'walk'} eq 'WADDLE' if $_->{'speech'} eq 'QUACK'; }
Platypus is not a duck! (in Platypus)
"DuckCheck" is defined as: sub { $_->{'walk'} eq 'WADDLE' if $_->{'speech'} eq 'QUACK'; }
Exiting...