my $worker = SOAP::Lite->new(uri   => $r_envelope{soapaction},
                                 proxy => $r_envelope{endpoint});

  my $response = $worker->call(SOAP::Data->name($r_envelope{method})
 ->attr( { xmlns => $r_envelope{namespace} } )
	=> SOAP::Data->name(timestamp => $d_envelope{timestamp}),
	SOAP::Data->name(referenceId  => $d_envelope{referenceId}),
	SOAP::Data->name(keycode      => $d_envelope{keycode}),
	SOAP::Data->name(guid => $d_envelope{guid}),
	SOAP::Data->name(machineName  => $d_envelope{machineName})

##</code><code>##

Dumper($response->envelope);

##</code><code>##

use SOAP::Lite +trace => ['all', '-objects']