or download this
my $worker = SOAP::Lite->new(uri => $r_envelope{soapaction},
proxy => $r_envelope{endpoint});
...
SOAP::Data->name(keycode => $d_envelope{keycode}),
SOAP::Data->name(guid => $d_envelope{guid}),
SOAP::Data->name(machineName => $d_envelope{machineName})