my $horse1 = Horse->new("George the Horse", 12);
$horse1->present();
$horse1->animalmethod();

BEGIN {
    package Animal;

    ...

    package Horse;

    ...
}