my $webService = SOAP::Lite-> uri($self->{NAMESPACE}) -> on_action(sub{sprintf '%s/%s', @_ }) -> outputxml("1") -> proxy($self->{ENDPOINT}); eval{ my $response = $webService ->call(SOAP::Data->name("SubmitXml")->attr({xmlns => $self->{NAMESPACE}}), SOAP::Data->name(Profile => $self->{HAP})->type('string'), SOAP::Data->name(Request => $xmlRequest)->type('xml'), SOAP::Data->name(Filter => $xmlFilter)->type('xml')); }; if($@){print $@} open RES,">>Responce.log"; if (defined $response) { print RES $response."\n"; }else {print RES "========No Response======== \n";} close RES; #### SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK Connection: close Date: Wed, 21 Jun 2006 10:44:06 GMT Server: Apache-Coyote/1.1 Content-Length: 4059 Content-Type: text/xml;charset=utf-8 Client-Date: Wed, 21 Jun 2006 10:45:18 GMT Client-Response-Num: 1 Client-SSL-Cert-Issuer: /O=VeriSign Trust Network/OU=VeriSign, Inc./OU=VeriSign International Server CA - Class 3/OU=www.verisign.com/CPS Incorp.by Ref. LIABILITY LTD.(c)97 VeriSign Client-SSL-Cert-Subject: /C=US/ST=New Jersey/L=Parsippany/O=Cendant Corporation/OU=Terms of use at www.verisign.com/OU=Terms of use at www.verisign.com/rpa (c)00/CN=copyws.cendant.com Client-SSL-Cipher: AES256-SHA Client-SSL-Warning: Peer certificate not verified 3010303836288820236055302760802