Select Code to Download

Select or download this

#!/usr/bin/perl
#
...

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

Select or download this

<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xm
+lns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="ht
+tp://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org
+/2001/XMLSchema">
    <env:Header/>
...
        </m:getResponse>
    </env:Body>
</env:Envelope>

Select or download this

$VAR1 = {
      'Toys' => bless( {
...
                                                    ]
                                  }, 'ArrayOfToy' )
        };

Select or download this

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