Dim Serializer As SoapSerializer30
   Dim reader As SoapReader30
   Dim Connector As SoapConnector30

##</code><code>##

   'Target for soap message
   Const END_POINT_URL = "http://wdb_sqltest:8080/ssc/servlet/SUGSoap"

   Set Connector = CreateObject("MSSOAP.HttpConnector30")
   Set Serializer = CreateObject("MSSOAP.SoapSerializer30")
   Set reader = CreateObject("MSSOAP.SoapReader30")
    
   Connector.Property("EndPointURL") = END_POINT_URL
   Connector.Connect
    
   Connector.Property("SoapAction") = "uri:SystemUnion-Journal"
    
   Connector.BeginMessage
   Serializer.Init Connector.InputStream
   Serializer.StartEnvelope
    Serializer.SoapNamespace "xsi", "http://www.w3.org/1999/XMLSchema-instance"
   Serializer.StartBody
   Serializer.startElement "Import","SystemUnion-Journal", , "m"
    
   Serializer.startElement "strPayload"
   Serializer.SoapAttribute "xsi:type", "", "xsd:string"
   Serializer.WriteString strPayload
   Serializer.endElement
   Serializer.endElement
   Serializer.EndBody
   Serializer.EndEnvelope
   Connector.EndMessage

##</code><code>##

use SOAP::Lite;
my ($soap);

$soap = new SOAP::Lite;

$soap->transport->proxy('http://wdb_sqltest:8080/ssc/servlet/SUGSoap');

$soap->serializer->uri('http://www.w3.org/1999/XMLSchema-instance');

$soap->serializer->envprefix('xsi');

$soap->call(SOAP::Data->name('Import') ->attr({xmlns=>'xsi'}) => 'uri:SystemUnion-Journal');