Select Code to Download

#!/user/bin/perl -w
use strict;
...
my $horse1 = Horse->new("George the Horse", 12);
$horse1->present();
$horse1->animalmethod();

$ perl tst.pl
I'm an animal.
I´m an animal. My name is George the Horse. I´m 12 years old