Select Code to Download

$VAR1 = bless( {
                 'resultCount' => '152',
...
                 'contextType' => 'Export_Device',
                 'internalResultCount' => '0'
               }, 'WSContext' );

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