[WebMethod]
public string greet( string name ) {
  return "Hello, " + name;
}

##</code><code>##

=begin WSDL

_IN name $string
_RETURN $string

=cut

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