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

my $ua = new LWP::UserAgent(keep_alive=>1);
$ua->credentials('myserver.mycompany.com:80', '', "mydomain\\user", 'password');
$req = GET 'http://myserver.mycompany.com/ntlm_auth/';
$resp = $ua->request($req);
if ($resp->is_success) 
{
	print $resp->content;
} 
else 
{
	print "Error: " . $resp->status_line . "\n";
	print $resp->as_string;
}