Perl OO

our @ISA = ('MyParent');

sub new {

        my $proto = shift;

        my $class = ref($proto) || $proto;

        my $self  = {};

        $self->{NAME}   = undef;

        $self->{AGE}    = undef;

        $self->{PEERS}  = [];

        bless ($self, $class);

        return $self;

}