use SOAP::Lite;
   print SOAP::Lite
      -> uri ('http://www.soaplite.com/Demo')
      -> proxy('http://services.soaplite.com/hibye.cgi')
      -> hi()
      -> result;
my $soap = SOAP::Lite->proxy('http://services.soaplite.com/hibye.cgi',
proxy => ['http' => 'my.proxy.server']);