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})