Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
  }
}
print "Exiting...\n";
  2. or download this
    >perl typetest.pl
Daffy is a Duck!
...
Platypus is not a duck! (in Platypus)
"DuckCheck" is defined as: sub { $_->{'walk'} eq 'WADDLE' if $_->{'spe
+ech'} eq 'QUACK'; }
Exiting...