#!perl -w

use SOAP::Lite;
print SOAP::Lite
  -> uri('http://www.soaplite.com/Demo'
  -> proxy('http://services.soaplite.com/hibye.cgi',
               proxy => [
'http' => 'http://firewall_ip/',
'login'=>'some_login',
'password'=>'some_password',
'port'=>'3128'
])
  -> hi()
  -> result;

##</code><code>##

$ENV{HTTP_proxy} = 'http://some_login:some_password@firewall_ip:3128';