$strPayload ##
##

use SOAP::Lite +trace => 'all';
                                                                                
my $uri = 'urn:SystemUnion-Journal';
                                                                                
my $soap = SOAP::Lite->proxy('http://wdb_sqltest:8080/ssc/servlet/SUGSoap');
$soap->uri('urn:SystemUnion-Journal');
$soap->autotype(0);
                                                                                
$soap->soapversion('1.1');
                                                                                
$soap->serializer()->attr({});                                                                                 
$soap->serializer()->namespaces({'http://schemas.xmlsoap.org/soap/envelope/' => undef});
                                                                                
$soap->call(SOAP::Data->name('Import')->encodingStyle(undef)->attr({xmlns => $uri}), SOAP::Data->name(strPayload => $strPayload));