$client = SOAP::Lite->new(
			uri   => 'http://www.webserviceX.NET/',
			proxy => 'http://www.webservicex.net/ConvertSpeed.asmx',
		       );

$client->on_action(sub {"http://www.webserviceX.NET/ConvertSpeed"});
$client->autotype(0);
$sheader = SOAP::Header->new('');
$sheader->type(xml => '');
$client->ns('http://www.webserviceX.NET/','web');
$client->envprefix('soapenv');

push @request, SOAP::Data->name(speed => 100)->prefix('web');
push @request, SOAP::Data->name(FromUnit => 'kilometersPerhour')->prefix('web');
push @request, SOAP::Data->name(ToUnit => 'milesPerhour')->prefix('web');

$soapResp = $client->ConvertSpeed($sheader,@request);

print $soapResp->result,"\n";