#!perl -w

use SOAP::Transport::HTTP;

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

package Demo;

sub hi { return "hello, world"; }

sub bye { 
    return  SOAP::Data->name('byeResult')
	    ->value('goodbye, cruel world')
	    ->type('string')
	    ->uri('http://soapinterop.org/xsd');
}

#!perl -w

use SOAP::Lite;

print SOAP::Lite
    ->uri('http://www.soaplite.com/Demo')
    ->proxy('http://localhost/hibye.cgi')
    ->hi()
    ->result;