#!c:\perl\bin\perl.exe use strict; use SOAP::Lite; my $user=shift; my $password=shift; my $protocol="http"; my $server="servername"; my $methodName="methodname"; my $endpoint="$protocol://$user:$password@".$server."/services/servicename"; my $client = SOAP::Lite->uri('URI here')->proxy($endpoint); open (ENV, ">envelop.xml") || die "Cannot open file for writing\n"; print ENV SOAP::Serializer->envelope(method=>$methodName); close (ENV); my $result=$client->call($methodName)->result; print "$result\n"; if ($client->call->fault) { open (ERR, ">>errfile.txt") || die "Cannot open errFile for appending\n"; print ERR "Oops! We got an error: ".$client->call->faultstring."\n"; print "Oops! We got an error: ".$client->call->faultstring."\n"; close ERR; }