#!/usr/bin/env perl5.8.6

use SOAP::Transport::HTTP;
use World;

SOAP::Transport::HTTP::CGI
  -> dispatch_to('World')
  -> handle;

##</code><code>##

package World;

sub new {
   bless {}, shift;
};

sub HelloPeople {
   my ($self) = @_;

   return "Answer from sub HelloPeople\n";
};

sub GoodBye {
   my ($self,$adjective) = @_;
   return "Goodbye $adjective \n";
}

1;


##</code><code>##

#!/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();


##</code><code>##

not well-formed (invalid token) at line 1, column 1, byte 1 at /usr/local/lib/perl5/site_perl/5.8.6/i686-linux/XML/Parser.pm line 187
#!/usr/bin/env perl5.8.6

use SOAP::Transport::HTTP;
use World;

SOAP::Transport::HTTP::CGI
  -> dispatch_to('World')
  -> handle;
 at soapClient.pl line 9