use HTTP::Request::Common;
use LWP::Debug qw(+);
use strict;
use warnings;

my $url = "http://********.com/MBSDKService/MsgSDK.asmx?WSDL.RunQuery?queryName=physical_windows_servers_itop_query";

my $ua = new LWP::UserAgent(keep_alive => 1);

$ua->credentials('http://********.com/MBSDKService/MsgSDK.asmx?WSDL', '', '**USERNAME***', '***PASSWORD*****');

my $req = GET  $url;
print "--Peforming request now...---------\n";

my $res = $ua->request($req);
if ($res->is_success) {
    print $res->content;
} else {
    print "Error: " . $res->status_line . "\n";
    print $res->headers()->as_string(), "\n";
}
exit 0;

##</code><code>##

#	--Peforming request now...---------
#	Error: 401 Unauthorized
#	Date: Thu, 25 Jan 2018 09:59:42 GMT
#	Server: Microsoft-IIS/7.5
#	WWW-Authenticate: Negotiate
#	WWW-Authenticate: NTLM
#	Content-Length: 58
#	Content-Type: text/html
#	Client-Date: Thu, 25 Jan 2018 09:59:43 GMT
#	Client-Peer: ***.*.**.***:**
#	Client-Response-Num: 1
#	Client-Warning: Unsupported authentication scheme 'ntlm'
#	X-Powered-By: ASP.NET