#!/usr/bin/perl -w

use strict;
#use SOAP::Lite; # +trace=>"debug"; # commented for testing
use Data::Dumper;
use SOAP::WSDL;
use XML::Simple;

my %data = (
   'inXML' => "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:xsd=\"http://pw_b1rws2.wsbeans.iseries/xsd\">
   <soapenv:Header/>
   <soapenv:Body>
      <xsd:getinfo_XML>
         <xsd:args0>
            <xsd:GETID>MYACCOUNT           1234567   2013        </xsd:GETID>
         </xsd:args0>
      </xsd:getinfo_XML>
   </soapenv:Body>
</soapenv:Envelope>"
   );

my $soap = SOAP::WSDL->new(
    wsdl => 'http://xxx.xxx.x.xxx:100XX/web/services/IBM?wsdl',
 );

 my $result = $soap->call('getinfo_XML', %data);

#print Dumper $result;

open( XML, '>', 'results.xml' ) or die "Couldn't open";

 print XML $result->result();

close XML;

# create object
my $xml = new XML::Simple;

# read XML file
my $data = $xml->XMLin("results.xml");

# print output
print Dumper($data);