package World;

sub new {
    bless {}, shift;
};

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

    return "Hello World\n";
};

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