#!perl
use strict;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
  -> dispatch_to('Demo')
  -> handle;
  
package Demo;
sub test {
  my ($self,$msg) = @_;
  return "msg : $msg\n"; 
}

##</code><code>##

#!perl
use SOAP::Lite;
print SOAP::Lite
-> uri('http://localhost/Demo')
-> proxy('http://localhost/read_xml.cgi')
-> test('hello server')
-> result;