use SOAP::Lite; use strict; use warnings; my $sd = new SOAP::Deserializer(); my $xml = do { local $_=<<'__THE__SOAP__';s/^\s+//;s/\s+$//;$_ }; __THE__SOAP__ my $som = $sd->deserialize($xml); use Data::Dumper; $Data::Dumper::Indent=1; #print Dumper( $sp, $parsed ),$/; #warn Dumper( $som ),$/; warn "$_ => ", Dumper( $som->$_() ),$/ for qw[ paramsall result ]; # root envelope header headers body fault method result paramsin paramsout ]; __END__ paramsall => $VAR1 = { 'Movies' => { 'Movie' => '' } }; result => $VAR1 = { 'Movies' => { 'Movie' => '' } };