#!/usr/bin/perl -- use strict; use warnings; use SOAP::Lite; my $soap = SOAP::Lite -> uri('http://127.0.0.1/MyModule') -> proxy('http://127.0.0.1:1203') ;;;;;;;;; $soap->readable(1); $soap->transport->add_handler("request_send", sub { print $_[0]->as_string,"\n"; return } ); #~ $soap->transport->add_handler("request_done", sub { print $_[0]->as_string,"\n"; return } ); my $da = SOAP::Data->new(name => 'UserName', type => 'xsd:string', attr => {}); eval { $soap->call( EmailInvoice => $da ); 1 } or warn $@; eval { $soap->call( YouFoundIt => $da ); 1 } or warn $@; __END__ POST http://127.0.0.1:1203 HTTP/1.1 Accept: text/xml Accept: multipart/* Accept: application/soap User-Agent: SOAP::Lite/Perl/1.11 Content-Length: 499 Content-Type: text/xml; charset=utf-8 SOAPAction: "http://127.0.0.1/MyModule#EmailInvoice" 500 Can't connect to 127.0.0.1:1203 at soap-xml-tagwrap-1119550.pl line 21. POST http://127.0.0.1:1203 HTTP/1.1 Accept: text/xml Accept: multipart/* Accept: application/soap User-Agent: SOAP::Lite/Perl/1.11 Content-Length: 495 Content-Type: text/xml; charset=utf-8 SOAPAction: "http://127.0.0.1/MyModule#YouFoundIt" 500 Can't connect to 127.0.0.1:1203 at soap-xml-tagwrap-1119550.pl line 22.