my $w = WWW::Scripter->new( keep_alive => 1);

$w->use_plugin('JavaScript'); 

$w->credentials( "www.company.com:80", undef, 'DOMAIN\\user', 'password' );

$w->get($url);

print $w->content(),"\n";

##</code><code>##

The keep_alive option must be enabled for NTLM authentication to work.  NTLM authentication aborted.

couldn't get script http://www.company.com/_layouts/1033/init.js?rev=qX%2BG3yl4pldKy9KbPLXf9w%3D%3D: 401 Unauthorized at /usr/local/lib/perl5/vendor_perl/5.10.1/HTML/DOM.pm line 494