$svc = SOAP::Lite 
-> service('http://localhost:8000/Hello.wsdl') 
-> proxy('http://localhost:8000/Hello') 
-> on_action(sub {sprintf '%s/%s', @_}); 

$resp = $svc->Hello("Jimmy");