#!/usr/bin/perl -w 
# hw_client.pl - Hello client 
use warnings; 
use SOAP::Lite; 
my $name = shift; 
print "\n\nCalling the SOAP Server to say hello\n\n"; 
print "The SOAP Server says: "; 
print SOAP::Lite 
-> uri('urn:Example1') 
-> on_action(sub{sprintf '%s/%s', @_ }) 
-> proxy('http://localhost/HelloWorld.asmx') 
-> sayHello(SOAP::Data->name(name => $name)->type->('string') 
-> uri('urn:Example1')) 
-> result . "\n\n";