Try to look at SOAP::Lite for Perl:

  use SOAP::Lite +autodispatch => 
    uri => 'http://www.soaplite.com/My/Examples', 
    proxy => 'http://services.soaplite.com/auth/examples.cgi', 
  ;

  sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
    return 'soaplite' => 'authtest';
  }

  print getStateName(21);
[download]

I hope that I helped ;-)

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);