## 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);