<%@ WebService class="StringServer3" Language="perl" %> package StringServer3; #use namespace "OrangeSoap.Test"; =for interface [System.Web.Services.WebMethod] str Concat(str str1, str str2); [System.Web.Services.WebMethod] str Concat2(str str1, str str2); =cut sub Concat{ my ($this, $str1, $str2) = @_; #my $s1 = thisstring; return($str1 . $str2 . $s1); } sub Concat2{ my ($this, $str1, $str2) = @_; return($str1 . $str2 . 'method 2'); }