## soapclient.pl ##
use SOAP::Lite;
print SOAP::Lite
	-> uri('http://www.soaplite.com/Demo')
	-> proxy('http://services.soaplite.com/hibye.cgi')
	-> hi()
	-> result;
exit;

##</code><code>##

## soapserver.cgi ##
#!/usr/bin/perl
use SOAP::Transport::HTTP;

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

package Demo;
sub hi {
	return "hello, world";
}
sub bye {
	return "goodbye, cruel world";
}
1;
exit;

##</code><code>##

## soapclient.pl ##
use SOAP::Lite;
print SOAP::Lite
	-> uri('http://www.anything.com/Demo')
	-> proxy('http://dev.domain.com/cgi-bin/soapserver.cgi')
	-> hi()
	-> result;
exit;

##</code><code>##

use CGI::Carp(qw/warningsToBrowser fatalsToBrowser/);