#!/usr/bin/perl -w
BEGIN {
    my $use_lib = "use lib qw[ /usr/lib/perl5/ /usr/lib/perl5/site_perl/5.8.5/ /usr/lib/perl5/site_perl/5.8.5/SOAP/ ]";
    eval $use_lib;
}
   use SOAP::Lite +trace =>   qw( all );
   my $client = SOAP::Lite->new();
   $client->uri('urn:Hello');
   $client->proxy('http://localhost:8001');
   my $som = $client->hello("Herong");
   my $output = $som->result;
   print $output . "\n";