my $soap = SOAP::Lite->uri($uri)->proxy( $proxyUrl, timeout => 5 );

my $method = SOAP::Data->name("command")->attr(
    {
        'template'  => 'sample',
        'method'    => 'execute',
        'loginname' => 'me',
    }
);

my $som = $soap->call($method);

if ( $som->fault ) { die $som->fault->faultstring }

print $som->valueof('/Envelop/Body/command');

##</code><code>##

 DB<1> x $som->valueof('/Envelope/Body/command')
0 HASH(0x1bb793c)
  'message' => HASH(0x1bb793c)
   -> REUSED_ADDRESS
 DB<2> x $som->valueof('/Envelope/Body/command/message')
0 HASH(0x1bb793c)
  'message' => HASH(0x1bb793c)
   -> REUSED_ADDRESS