#!/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";}