use SOAP::Lite;
use strict;
use warnings;

my $sd = new SOAP::Deserializer();
my $xml = do { local $_=<<'__THE__SOAP__';s/^\s+//;s/\s+$//;$_ };
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <soap:Body>
    <GetMoviesResponse xmlns="http://www.dtmovies.com/websvcs/">
      <GetMoviesResult>
        <Movies xmlns="">
          <Movie Title="10 Things I Hate About You" FilmID="474" />
          <Movie Title="102 Dalmatians" FilmID="912" />
          <Movie Title="13 Going on 30" FilmID="1496" />
          <Movie Title="15 Minutes" FilmID="966" />
        </Movies>
      </GetMoviesResult>
    </GetMoviesResponse>
  </soap:Body>
</soap:Envelope>
__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' => ''
  }
};