#!/usr/bin/perl -w
$| = 1;
use Authen::NTLM 1.09;
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;

my $url = 'http://ip:port/xyz';

ntlmv2(1);

my $ua = LWP::UserAgent->new(keep_alive=>1);
$ua->credentials('ip:port', '', "\\login", 'password');

$ua->add_handler("request_send",  sub { print "\n[START request_send handler]\n"; shift->dump; print "[END request_send handler]\n\n"; return });
$ua->add_handler("response_data",  sub { print "\n[START response_data handler]\n"; shift->dump; print "[END response_data handler]\n\n"; return ; });

my $response=$ua->request(
						POST $url,						
						Content_Type => 'text/plain',
						Content      => $xmlContent,
					);
											
if ($response->is_success) 
	{print "It worked!->" . $response->code . "\ncontent:".$response->content.'\n'.$response->status_line."\n".$response->headers()->as_string()."\n";}
else 
	{print "It didn't work!->" . $response->code ." ".$response->status_line. "\n".$response->headers()->as_string(). "\n";}


##</code><code>##

[START request_send handler]
POST http://url
User-Agent: libwww-perl/5.834
Content-Length: 15230551
Content-Type: text/plain

<?xml version="1.0" encoding="utf-8" ?>
<Contact...
(+ 15230039 more bytes not shown)
[END request_send handler]


[START response_data handler]
HTTP/1.1 401 Unauthorized
Date: Wed, 21 Aug 2013 23:57:52 GMT
Server: Microsoft-IIS/7.5
WWW-Authenticate: NTLM
WWW-Authenticate: Negotiate
Content-Length: 1293
Content-Type: text/html
Client-Peer: IPport
Client-Response-Num: 1
X-Powered-By: ASP.NET
[END response_data handler]


[START request_send handler]
POST http://url
Authorization: NTLM Txxx=
User-Agent: libwww-perl/5.834
Content-Length: 15230551
Content-Type: text/plain

<?xml version="1.0" encoding="utf-8" ?>
<Contact...
(+ 15230039 more bytes not shown)
[END request_send handler]


[START response_data handler]
HTTP/1.1 401 Unauthorized
Date: Wed, 21 Aug 2013 23:57:52 GMT
Server: Microsoft-HTTPAPI/2.0
WWW-Authenticate: NTLM Tlxxx==
Content-Length: 341
Content-Type: text/html; charset=us-ascii
Client-Peer: IPport
Client-Response-Num: 1
Title: Not Authorized
[END response_data handler]



[START request_send handler]
POST http://url
Authorization: NTLM Tlxxx
User-Agent: libwww-perl/5.834
Content-Length: 15230551
Content-Type: text/plain

<?xml version="1.0" encoding="utf-8" ?>
<Contact...
(+ 15230039 more bytes not shown)
[END request_send handler]


[START response_data handler]
HTTP/1.1 401 Unauthorized
Date: Wed, 21 Aug 2013 23:57:52 GMT
Server: Microsoft-IIS/7.5
WWW-Authenticate: NTLM
WWW-Authenticate: Negotiate
Content-Length: 1293
Content-Type: text/html
Client-Peer: IPport
Client-Response-Num: 1
X-Powered-By: ASP.NET
[END response_data handler]


[START request_send handler]
POST http://url
Authorization: NTLM Txxx=
User-Agent: libwww-perl/5.834
Content-Length: 15230551
Content-Type: text/plain

<?xml version="1.0" encoding="utf-8" ?>
<Contact...
(+ 15230039 more bytes not shown)
[END request_send handler]


[START response_data handler]
HTTP/1.1 401 Unauthorized
Date: Wed, 21 Aug 2013 23:57:52 GMT
Server: Microsoft-HTTPAPI/2.0
WWW-Authenticate: NTLM Tlxxx==
Content-Length: 341
Content-Type: text/html; charset=us-ascii
Client-Peer: IPport
Client-Response-Num: 1
Title: Not Authorized
[END response_data handler]

----------------------------------
....Removed one step
----------------------------------

[START request_send handler]
POST http://url
Authorization: NTLM Tlxxx
User-Agent: libwww-perl/5.834
Content-Length: 15230551
Content-Type: text/plain

<?xml version="1.0" encoding="utf-8" ?>
<Contact...
(+ 15230039 more bytes not shown)
[END request_send handler]


[START response_data handler]
HTTP/1.1 401 Unauthorized
Date: Wed, 21 Aug 2013 23:57:52 GMT
Server: Microsoft-IIS/7.5
WWW-Authenticate: NTLM
WWW-Authenticate: Negotiate
Content-Length: 1293
Content-Type: text/html
Client-Peer: IPport
Client-Response-Num: 1
X-Powered-By: ASP.NET
[END response_data handler]


It didn't work!->401 401 Unauthorized
Date: Wed, 21 Aug 2013 23:57:52 GMT
Server: Microsoft-IIS/7.5
WWW-Authenticate: NTLM
WWW-Authenticate: Negotiate
Content-Length: 1293
Content-Type: text/html
Client-Date: Tue, 20 Aug 2013 11:58:25 GMT
Client-Peer: IPport
Client-Response-Num: 1
Client-Warning: Credentials for 'login' failed before
Title: 401 - Unauthorized: Access is denied due to invalid credentials.
X-Powered-By: ASP.NET