sub SOAP::Transport::HTTP::Client::get_basic_credentials { return ('domain\user' => 'password') };

##</code><code>##

#!/usr/bin/perl
use lib "./modules/";
use Discovery;
use strict;
use warnings;

my $c = Discovery->new();
print $c->GetSources;

##</code><code>##

...
...
...
The keep_alive option must be enabled for NTLM authentication to work.  NTLM authentication aborted.
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x2858510)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 401 Unauthorized
Connection: close
...
...
...

401 Unauthorized at ./testit.pl line 11.
...