#!perl -w

use SOAP::Lite +trace;


print SOAP::Lite
  -> uri('http://146.225.100.232/Demo')
  -> proxy('http://146.225.100.232:81/soap_server.pl')
  -> on_debug( sub {print @_})
  -> hi()
  -> result;