package forum;

sub new {
    my($package, %args) = @_;
    my $self = {
               
    "member" => $args{member}
               
    };
    bless $self, $package;
}

sub get_member {
  my $self = shift;
  return $self->{member};
}

package main;

my $user = forum->new(
               
           "member" => "BrownWolf"
               
            );
print $user->get_member;