package WebserviceFunctions;

sub new { bless {}, shift; }

sub Hello {
    my ($s, $name) = @_;
    return "Hello, $name".$/;
}

sub Goodbye {
    my ($s, $name) = @_;
    return "Goodbye, $name".$/;
}

1;