package WebserviceFunctions;
sub new { bless {}, shift; }
=begin WSDL             
 _DOC Hello                                                             
=end WSDL               
                 
sub Hello {                                                           
    my ($s, $name) = @_;
    return "Hello, $name".$/; 
}                                                                               
=begin WSDL             
 _DOC Goodbye              
=end WSDL                
sub Goodbye { 
       
    my ($s, $name) = @_;
    return "Goodbye, $name".$/;
}