package Person;
sub new {
   my $class = shift;
   my $type = ref($class) || $class;
   my $self = {};
   $self->{name} = shift;
   $self->{password} = shift;
   $self->{realname} = shift;
   bless $self, $type;
}

package Monk;
sub new {
   my $class = shift;
   my $type = ref($class) || $class;
   my $self = {};
   $self->{person} = Person->new( @_ );
   $self->{level}  = 0;
   bless $self, $type;
}

sub promote {
   my( $self ) = shift;
   print "Brother ", $self->{person}{name}, " is getting some XP\n";
   $self->{level}++;
}

1;