#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my ($ua, $req, $res, $output);

$ua = new LWP::UserAgent(keep_alive=>1);
$ua->agent('Internet Explorer/6.0');
$ua->credentials('domain.com:80', '', "domain\\user", 'pass');

$req = HTTP::Request->new(POST => 'http://domain.com/cgi-bin/test.cgi', HTTP::Headers->new('WWW-Authenticate' => 'NTLM'));
$req->content_type('application/x-www-form-urlencoded');
$req->content('testvar=testvalue');

$res = $ua->request($req);

$output = $res->content;

print "output:\n".$output;