$VAR1 = bless( {
                 'resultCount' => '152',
                 'options' => undef,
                 'query' => 'SELECT DISTINCT huge-ass sql statement',
                 'filter' => 'DeviceType=\'NAS\'',
                 'maxResults' => '5000',
                 'firstResultPos' => '0',
                 'contextId' => 'ContextId_1364302533581',
                 'contextType' => 'Export_Device',
                 'internalResultCount' => '0'
               }, 'WSContext' );

##</code><code>##

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