#!/usr/bin/perl
#

use SOAP::Lite;
use Data::Dumper;

# Load server CA certificate
#
$ENV{HTTPS_CA_FILE} = "ca.cer";

my $soap = SOAP::Lite->new(proxy => 'https://webserver:443/ToyService/ToyWebService');
$soap->readable(1);

# Setup credentials
#
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
	return 'user' => 'pass';

# 	Execute SOAP Request
#
sub doSOAPCall {
	my $method = $_[0];

	eval {
		my $res = $soap->call($method)->result;
		return $res;
		1;
	} or die;
}

# Build method and parameters for GetToys and execute call to web service
#
my $getFrobMethod = SOAP::Data->name('getToys')
	->attr({xmlns => 'web.service.namespace'});

my $getToysResults = &doSOAPCall($getToysMethod);


# Print output for TOYS
#
foreach my $e (@{$getToysResults->{Toys}{Toy}}){
	print "$e->{color}\n";
	if ($e->{ToyLocations}{ToyLocation}{locationName}){
		$location = $e->{ToyLocations}{ToyLocation}{locationName};
		$location = "XXX$location";
	} else {
		$location = "XXX";
	}

	print "TOYS\/$e->{color}\/$e->{ToyLocations}{ToyLocation}{toyName}\/$e->{ToyLocations}{ToyLocation}{toyQuantity}\/$location\/\n";
}

##</code><code>##

<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
	<env:Header/>
	<env:Body>
		<m:getResponse xmlns:m="web.service.namespace">
			<ns1:result xmlns:n1="web.service.namespace">
				<ns2:Toys xmlns:ns2="web.service.namespace.value" xsi:type="ns2:ArrayOfToy">
					<ns2:Toy xsi:type="ns2:Stuffed">
						<ns2:ToyLocations xsi:type="ns2:ArrayOfToyLocation">
							<ns2:ToyLocation>
								<ns2:toyName>bear</ns2:toyName>
								<ns2:toyQuantity>2</ns2:toyQuantity>
								<ns2:locationName>toybox</ns2:locationName>
							</ns2:ToyLocation>
						</ns2:ToyLocations>
						<ns2:color>brown</ns2:color>
						<ns2:size>large</ns2:size>
					</ns2:Toy>
					<ns2:Toy xsi:type="ns2:Electric">
						<ns2:ToyLocations xsi:type="ns2:ArrayOfToyLocation">
							<ns2:ToyLocation>
								<ns2:toyName>car</ns2:toyName>
								<ns2:toyQuantity>2</ns2:toyQuantity>
								<ns2:locationName>shelf</ns2:locationName>
							</ns2:ToyLocation>
						</ns2:ToyLocations>
						<ns2:color>red</ns2:color>
						<ns2:size>small</ns2:size>
					</ns2:Toy>
					<ns2:Toy xsi:type="ns2:Board">
						<ns2:ToyLocations xsi:type="ns2:ArrayOfToyLocation">
							<ns2:ToyLocation>
								<ns2:toyName>Sorry</ns2:toyName>
								<ns2:toyQuantity>1</ns2:toyQuantity>
								<ns2:locationName>toybox</ns2:locationName>
							</ns2:ToyLocation>
							<ns2:ToyLocation>
								<ns2:toyName>Chess</ns2:toyName>
								<ns2:toyQuantity>4</ns2:toyQuantity>
								<ns2:locationName>shelf</ns2:locationName>
							</ns2:ToyLocation>
						</ns2:ToyLocations>
						<ns2:color>none</ns2:color>
						<ns2:size>medium</ns2:size>
					</ns2:Toy>
				</ns2:Toys>
			</ns1:result>
		</m:getResponse>
	</env:Body>
</env:Envelope>

##</code><code>##

$VAR1 = {
	  'Toys' => bless( {
                                    'Toy' => [
                                                      bless( {
                                                               'ToyLocations' => bless( {
                                                                                                 'ToyLocation' =>  {
                                                                                                                   'toyName' => 'bear',
                                                                                                                   'toyQuantity' => '2',
                                                                                                                   'locationName' => 'toybox'
                                                                                                                  }
                                                                                               }, 'ArrayOfToyLocation' ),
                                                               'color' => 'brown',
                                                               'size' => 'large'
                                                             }, 'Stuffed' ),
                                                      bless( {
                                                               'ToyLocations' => bless( {
                                                                                                 'ToyLocation' => {
                                                                                                                   'toyName' => 'car',
                                                                                                                   'toyQuantity' => '2',
                                                                                                                   'locationName' => 'shelf'
                                                                                                                  }
                                                                                               }, 'ArrayOfToyLocation' ),
                                                               'color' => 'red',
                                                               'size' => 'small'
                                                             }, 'Electric' ),
                                                      bless( {
                                                               'ToyLocations' => bless( {
                                                                                                 'ToyLocation' => [
                                                                                                                           {
                                                                                                                             'toyName' => 'Sorry',
                                                                                                                             'toyQuantity' => '1',
                                                                                                                             'locationName' => 'toybox'
                                                                                                                           },
                                                                                                                           {
                                                                                                                             'toyName' => 'Chess',
                                                                                                                             'toyQuantity' => '4',
                                                                                                                             'locationName' => 'shelf'
                                                                                                                           }
                                                                                                                         ]
                                                                                               }, 'ArrayOfToyLocation' ),
                                                               'color' => 'none',
                                                               'size' => 'medium'
                                                             }, 'Board' )
                                                    ]
                                  }, 'ArrayOfToy' )
        };

##</code><code>##

foreach my $e (@{$getToysResults->{Toys}{Toy}}){
	foreach my $f (@{$e->{ToyLocations}{ToyLocation}}){
...