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