clie.pl
#!/usr/bin/perl --
use strict;
use warnings;

#!perl -w

use SOAP::Lite +trace => 'all';


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