#!/usr/bin/perl
use SOAP::Lite +trace => 'all';
use warnings;
my $address = 'http://10.130.9.79:7782/services/CBSInterfaceBusinessMgrService?wsdl';
my $action = "http://10.130.9.79:7782/services/common";
my $namespace = 'http://www.huawei.com/bme/cbsinterface/cbs/businessmgrmsg';
my $call = "QueryBasicInfoRequestMsg";

my $soap = SOAP::Lite
    ->uri($namespace)
    ->on_action(sub { $action } )
    ->proxy($address);

my $arg = SOAP::Data->name(RequestHeader => "", CommandId => "QueryBasicInfo", Version =>"1", TransactionId =>"1", SequenceId =>"1", RequestType => "Event", SubscriberNo => "9136006473", QueryType => "4");
$soap->call($call => $arg);

##</code><code>##

SOAP::Transport::new: ()
SOAP::Serializer::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Lite::new: ()
SOAP::Transport::HTTP::Client::new: ()
SOAP::Data::new: ()
SOAP::Lite::call: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: QueryBasicInfoRequestMsg SOAP::Data=HASH(0x2601888)
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x260f558)
SOAP::Transport::HTTP::Client::send_receive: POST http://10.130.9.79:7782/services/CBSInterfaceBusinessMgrService?wsdl HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 1357
Content-Type: text/xml; charset=utf-8
SOAPAction: http://10.130.9.79:7782/services/common

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><QueryBasicInfoRequestMsg xmlns="http://www.huawei.com/bme/cbsinterface/cbs/businessmgrmsg"><RequestHeader xsi:type="xsd:string" /><RequestHeader xsi:type="xsd:string">CommandId</RequestHeader><RequestHeader xsi:type="xsd:string">QueryBasicInfo</RequestHeader><RequestHeader xsi:type="xsd:string">Version</RequestHeader><RequestHeader xsi:type="xsd:int">1</RequestHeader><RequestHeader xsi:type="xsd:string">TransactionId</RequestHeader><RequestHeader xsi:type="xsd:int">1</RequestHeader><RequestHeader xsi:type="xsd:string">SequenceId</RequestHeader><RequestHeader xsi:type="xsd:int">1</RequestHeader><RequestHeader xsi:type="xsd:string">RequestType</RequestHeader><RequestHeader xsi:type="xsd:string">Event</RequestHeader><RequestHeader xsi:type="xsd:string">SubscriberNo</RequestHeader><RequestHeader xsi:type="xsd:long">9136006473</RequestHeader><RequestHeader xsi:type="xsd:string">QueryType</RequestHeader><RequestHeader xsi:type="xsd:int">4</RequestHeader></QueryBasicInfoRequestMsg></soap:Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x2836098)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error
Connection: close
Date: Mon, 12 Oct 2015 09:40:47 GMT
Server: Apache-Coyote/1.1
Content-Type: text/xml;charset=utf-8
Client-Date: Mon, 12 Oct 2015 09:40:47 GMT
Client-Peer: 10.130.9.79:7782
Client-Response-Num: 1
Set-Cookie: JSESSIONID=5D8F24823784A396353DEAF0AF12124A.server1; Path=/
X-Powered-By: Servlet 2.4; JBoss-4.0.5.GA (build: CVSTag=Branch_4_0 date=200610162339)/Tomcat-5.5
X-UA-Compatible: IE=EmulateIE7

<?xml version='1.0' encoding='utf-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Header /><soapenv:Body><soapenv:Fault><faultcode>soapenv:Client</faultcode><faultstring>Operation Not found EPR is http://10.130.9.79:7782/services/CBSInterfaceBusinessMgrService and WSA Action =  http://10.130.9.79:7782/services/common</faultstring><detail /></soapenv:Fault></soapenv:Body></soapenv:Envelope>
SOAP::Deserializer::deserialize: ()
SOAP::Parser::decode: ()
SOAP::SOM::new: ()
SOAP::SOM::DESTROY: ()
SOAP::Lite::DESTROY: ()
SOAP::Serializer::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Transport::DESTROY: ()
SOAP::Transport::HTTP::Client::DESTROY: ()