#!C:\Perl\bin\perl -w

# hello.cgi

use strict;
use SOAP::Transport::HTTP;
use lib '/ooSOAP';

SOAP::Transport::HTTP::CGI 
   -> dispatch_to('Hello::(?:sayHello)')
   -> handle
;
------------------------------------------------------

#  Hello.pm
package Hello;

sub sayHello {
                shift;        # remove class name
                return "Hello " . shift;
}
1;
--------------------------------------------

#!C:\Perl\bin\perl -w
# hw_client.pl  - Hello Client
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')
    ->proxy('http://localhost/ooSOAP/hello.cgi')
    ->sayHello($name)
    ->result . "\n\n";
    

##</code><code>##

Calling the SOAP Server to say hello 

The SOAP Server says: Unexpected Content-Type 'text/plain; charset=iso-8859-1' returned