package Monk;
sub new {
   my ($name, $password, $realname) = @_;
    my %monk = (
        "name"          => $name,
        "password"      => $password,
        "realname"      => $realname,
        "level"         => 0
    );
    return \%monk;
}
sub promote {
    my $r_monk = shift;
    $r_monk->{level}++;
}