bless($self, "Adult");

should be...

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