#!/usr/bin/perl

use SOAP::Lite +trace => [ transport => sub { print $_[0]->as_string } ];
use Data::Dumper;

my $user = SOAP::Data->type(‘string’)->name( userName => ‘*****’ );
my $pass = SOAP::Data->type(‘string’)->name( password => ‘*****’ );
my $pass = SOAP::Data->type(‘string’)->name( a_string => ‘*****’ );

my $soap_response = SOAP::Lite
-> uri(‘http://tempuri.org/’)
-> proxy(‘http://a_webservice_url.svc’)
-> on_action( sub { ‘http://tempuri.org/A_Webservide_method/’.$_[1] } )
-> A_Webservide_method($user,$pass,$a_string)
;
my @res = $soap_response->paramsout;
my $res = $soap_response->result;
print “Result is $res, outparams are @res\n”;
print “Fault:\n\t”.$soap_response->faultcode.”\n\t”.$soap_response->faultstring.”\n”;