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;