use AnyEvent::HTTP::LWP::UserAgent; use AnyEvent; use LWP::Authen::NTLM; use Data::Dumper qw(Dumper); my $ip = '10.0.0.14'; my $user = 'DOMAIN\\user'; my $pass = 'password'; my $port = '80'; my $url = 'http://'.$ip.'/example'; my $ua = AnyEvent::HTTP::LWP::UserAgent->new(keep_alive => 1); # without this line it works... but obviously returns unauthorised $ua->credentials($ip.":".$port,'',$user,$pass); $ua->timeout(10); my $cv = $ua->get_async($url); $cv->cb(sub { my $r = shift->recv; print Dumper $r; }); $cv->recv;