name	adresss		telf	zipcode

##</code><code>##

<?xml version="1.0" encoding="utf-8"?> 

<shema targetNamespace="http://xxxxxx.com/webservice xmlns:impl=
"http://xxxxxx.com/webservice"
xmlns:wsdl= "http://shemas.xmlsoap.org/wsdl/"  xmlns:soapenc="http://xchemas.xmlsoap.org/soap/encoding/" 
xmlns="http://www.w3.org/2001/XMLShema"  
<complexType name="ENTRADA"> 

<sequence> 

<element name="name" nillable="true" type="string"/> 

<element name="address" nillable="true" type="string"/> 

<element name="telf" nillable="true" type="string"/> 

<element name="zipcode" nillable="true" type="string"/> 

</sequence> 

</complexType> 

<complexType name="SALIDA"> 

<sequence> 

<complexType name="EXCEPCION"> 

<sequence> 

<element name="errorname" nillable="true" type="string"/> 

<element name="erroraddress" nillable="true" type="string"/> 

<element name="erroratelf" nillable="true" type="string"/> 

<element name="errorzipcode" nillable="true" type="string"/> 

</sequece> 

</complexType> 

</schema> 

##</code><code>##

<?xml version="1.0" enconding="utf-8" ?> 

<wsdl:definitions targetNameespace= 
"http://xxxxxx.com/webservice" xmlns= "http://shemas.xmlsoap.org/wsdl" xmlns:serv="http://xxxxxxx.com/webservice"  xmlns:soapenc="http://schemas.xmlsoap.org/soap/enconding/" xmlns:wsdl="http://shemas.xmlsoap.org/wsdl" xmlns:wsdlsoap=" http://shemas.xmlsoap.org/wsdl/soap/" 
<import namespace= 
"http://xxxxxx.com/webservice" location="file:webservice.xsd"> 
<wsdl:message name="webservicepregunta"> 

<wsdl:part name="in0" type="serv:ENTRADA" /> 

</wsdl:message> 

<wsdl:message name="webservicerespuesta"> 

<wsdl:part name="out0" type="serv:SALIDA" /> 

</wsdl:message> 

<wsdl:message name="webservicefallo"> 

<wsdl:part name="fault0" type="serv:EXCEPCION" /> 

</wsdl:message> 

<wsdl:portType name="webservice"> 

<wsdl:operation name="webservice" parameterOrder="in0"> 

<wsdl:input message="serv:webservicepregunta" name="webservicepregunta"/> 

<wsdl:output message="serv:webservicerespuesta" name="webservicerespuesta"/> 

<wsdl:fault message="serv:webservicefallo" name="webservicefallo"/> 

</wsdl:operation> 

</wsdl:portType> 

<wsdl:binding name="webserviceSoapBinding" type="serv:webservice"> 

<wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/> 

<wsdl:operation name="webservice"> 

<wsdlsoap:operation soapAction="webservice"/> 

<wsdl:input name="webservicepregunta"> 

<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://xxxxxxxxx.com/webservice " use="encoded"/> 

</wsdl:input> 

<wsdl:output name="webservicerespuesta"> 

<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://xxxxxxxxxx.com/webservice " use="encoded"/> 

</wsdl:output> 

<wsdl:fault name="webservicefallo"> 

<wsdlsoap:fault encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://xxxxxxx.com/webservice " use="encoded"/> 

</wsdl:fault> 

</wsdl:operation> 

</wsdl:binding> 

<wsdl:service name="webserviceService"> 

<wsdl:port binding="serv:webserviceSoapBinding" name="webservice"> 

<wsdlsoap:address location="http://xxxxx.com/webservice"/> 

</wsdl:port> 

</wsdl:service> 

</wsdl:definitions> 

##</code><code>##

#!/usr/bin/perl -w 
use SOAP::Lite; 

print SOAP::Lite 
->service('file:/home/user/rafael/webservice.wsdl') 
->webservice('name', 'adress', 'telf', 'zipcode');