package World;

sub new {
   bless {}, shift;
};

sub HelloPeople {
   my ($self) = @_;

   return "Answer from sub HelloPeople\n";
};

sub GoodBye {
   my ($self,$adjective) = @_;
   return "Goodbye $adjective \n";
}

1;