Select Code to Download

use warnings;
use strict;
...
    $animal = (bless \do{my $anon}, $animal);
    $animal->speak();
}

Moo
Moo
Hi, my name is Ed
Baaaah
Baaaah