#subroutine to login to webservice
sub usdLogin {
 	my ($service, $sid) = eval {
    	my $wsdl = 'http://' . USD_Server . USD_Endpoint; 
    	my $srv = SOAP::Lite->uri(USD_URI)->service($wsdl);
		my $id = $srv->login(USD_USER, USD_PWD);
		if($id->fault) {
				printLog("ERROR","$0::".chomp($id->faultcode));
				printLog("ERROR","$0::".chomp($id->faultstring));
				printLog("ERROR","$0::".chomp($id->faultactor));
				return 0;
		}
		return ($srv, $id);
    };
    if ($@) {
    	printLog("ERROR","$0::$@");
    	return exit 1;
    }
    return ($service, $sid);
}