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