bless($self, "Adult");

should be...

    bless($self, "Person::Adult");

##</code><code>##

my $a = Person::Adult->new(NAME => 'the hard way');
$a->sayHi();