ntlm.pl

use strict;
use warnings;
use URI;
use LWP::UserAgent;
use HTTP::Request::Common;
my $url = 'http://localhost/localstart.asp';

my $ua = new LWP::UserAgent(keep_alive=>1);
print $ua->credentials('localhost:80', '', "domain\\username", 'password')."\n";

my $request = GET $url;
my $response = $ua->request($request);

if ($response->is_success) {print "It worked!->" . $response->code . "\n"}
else {print "It didn't work!->" . $response->code . "\n"}