#!/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);