#!/usr/bin/perl -w use strict; use SOAP::Lite; use Data::Dumper; # Create a SOAP handle to handle web service transactions with Remedy my $wsdl = 'http://SERVER/arsys/WSDL/HD_Netcool_v1'; my $soapHndl = SOAP::Lite->new()->service($wsdl)->readable(1); # Force schema type to be XMLSchema2001 my $xmlschema2001 = "http://www.w3.org/2001/XMLSchema"; $soapHndl->xmlschema($xmlschema2001); # Define tags to be nested within the tag my @authObj = (SOAP::Header->name('userName')->value('user'), SOAP::Header->name('password')->value('password') ); my $qualification = "\'ucn\' LIKE \'test%\'"; my @queryObj = (SOAP::Data->name('Qualification')->value($qualification), SOAP::Data->name('startRecord')->value('0'), SOAP::Data->name('maxLimit')->value('10'), SOAP::Header->name('AuthenticationInfo')->value(\SOAP::Header->value(@authObj)) ); my @RemedyList = $soapHndl->OpGetList(@queryObj); my $numElements = @RemedyList; print Dumper(@RemedyList); #### User Password 0 10 #### blackberry blackberry 'assigned_group'="Net Serv Y" #### The XML is: