Select Code to Download

use 5.10.0;
package Animal;
...
__END__
Cow says: moo
Dog says: wuff

    shift if $_[0] eq __PACKAGE__ || ref $_[0] eq __PACKAGE__;

use Animal; # contains Cow and Dog as above
Cow->speak;
...
$animal = bless do{\my $x}, 'Cow';
Animal::speak($animal);
$animal->speak;