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

use Data::Dumper;

use local::lib 'lib1';

use SOAP::Lite;

my $xml = q{<?xml version="1.0" encoding="utf-8"?>
    <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
        <soapenv:Header>
            <ns1:sessionID soapenv:actor="http://schemas.xmlsoap.org/soap/actor/next" soapenv:mustUnderstand="0" href="#id0" xmlns:ns1="http://xml.apache.org/axis/session"/>
        </soapenv:Header>
        <soapenv:Body>
            <ns2:initExportDeviceResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns2="http://diamondip.com/netcontrol/ws/">
                <initExportDeviceReturn href="#id1"/>
            </ns2:initExportDeviceResponse>
            <multiRef id="id0" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="soapenc:long" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">-910253925912285490</multiRef>
            <multiRef id="id1" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="ns3:WSContext" xmlns:ns3="http://service.ipcontrol.diamondip.com" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
                <contextId xsi:type="soapenc:string">ContextId_1364228178892</contextId>
                <contextType xsi:type="soapenc:string">Export_Device</contextType>
                <filter xsi:type="soapenc:string">DeviceType='NAS'</filter>
                <firstResultPos href="#id2"/>
                <internalResultCount href="#id3"/>
                <maxResults href="#id4"/>
                <options xsi:type="soapenc:string" xsi:nil="true"/>
                <query xsi:type="soapenc:string">SELECT DISTINCT huge-ass sql statement cropped for clarity) ) ) ) )  ORDER BY 1</query>
                <resultCount href="#id5"/>
            </multiRef>
            <multiRef id="id4" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">5000</multiRef>
            <multiRef id="id3" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">0</multiRef>
            <multiRef id="id5" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">152</multiRef>
            <multiRef id="id2" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xsi:type="xsd:int" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">0</multiRef>
        </soapenv:Body>
    </soapenv:Envelope>
};

my $som = SOAP::Deserializer->deserialize($xml);
my $subsom = $som->match('/Envelope/Header/[1]');
my $res = $subsom->valueof();
print "Result: $res\n";