#!/usr/bin/env perl5.8.6
use SOAP::Lite;

my $s = SOAP::Lite
   ->uri('World')
   ->proxy('http://localhost/soap/soapserver.cgi')
   ->HelloPeople()
   ->on_debug(sub{print@_});
print $s->result();

my $s = SOAP::Lite
   ->uri('World')
   ->proxy('http://localhost/soap/soapserver.cgi')
   ->GoodBye("Bad world")
   ->on_debug(sub{print@_});
print $s->result();