Select Code to Download

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envel
+ope/" xmlns:was="http://tempuri.org/AWEService/API/WASAPI">
    <soapenv:Header/>
...
        </was:RunLocator>
    </soapenv:Body>
</soapenv:Envelope>

<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envel
+ope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://
+www.w3.org/2001/XMLSchema-instance">
...
</ns1:RunLocatorResponse>
</soapenv:Body>
</soapenv:Envelope>

<definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:
+soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.o
+rg/2001/XMLSchema" xmlns:s0="http://tempuri.org/AWEService/API/WASAPI
+" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tm=
+"http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://sch
+emas.xmlsoap.org/wsdl/mime/" xmlns="http://schemas.xmlsoap.org/wsdl/"
+ targetNamespace="http://tempuri.org/AWEService/API/WASAPI">
<types>
...
</port>
</service>
</definitions>

    my $wsdl          = 'https://www.example.com/VISTA/wsdl/LocateDevi
+ce_RunLocator.wsdl';
    my $lite          = SOAP::Lite
...
    my @params        = (SOAP::Data->name(WAS_userName => 'MY_USER'), 
+SOAP::Data->name(WAS_password => 'MY_PASSWD'), SOAP::Data->name(DEVIC
+E_NAME => 'MY_SERVER'));
    SOAP::Lite->import(+trace => 'all');
    my $result        = $lite->RunLocator(@params);

SOAP::Transport::HTTP::Client::new: ()
SOAP::Lite::call: ()
...
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()

#!/usr/bin/perl
use strict; use warnings;
...

return ($serial, $model, $location);
}