use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Headers;
use LWP::Debug qw(+);

my $url = 'http://site.domine.com';

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

$ua->credentials('site.domine.com:80', '', 'domine\\username', 'password');

$request = HTTP::Request->new(
    GET => $url,
    HTTP::Headers->new(user_agent => 'Internet Explorer/6.0', www_authenticate => 'NTLM')
    );

print "--Performing request now...-----------\n";
$response = $ua->request($request);
print "--Done with request-------------------\n";

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