-910253925912285490 ContextId_1364228178892 Export_Device DeviceType='NAS' SELECT DISTINCT huge-ass sql statement cropped for clarity) ) ) ) ) ORDER BY 1 5000 0 152 0 ##

##

## USE THESE
use strict;
use warnings;
use SOAP::Lite;
use Data::Dumper;

## AUTHENTICATION
my $user = 'username';
my $pass = 'password';
sub SOAP::Transport::HTTP::Client::get_basic_credentials { return $user => $pass; }

## WSDL AND FILTER DEFINIATION
my $WSDL = 'http://localhost:8080/inc-ws/services/Exports?wsdl';
my $filter = "DeviceType='NAS'";

## MAKE THE CALL, PRINT THE RESULTS
my $client = SOAP::Lite ->service($WSDL);
my $result = $client->initExportDevice($filter);
print Dumper($result);