#!/usr/bin/perl
use LWP::UserAgent;
use Authen::NTLM;
use HTTP::Request::Common;
use HTTP::Response;

ntlmv2(1);

my $url = 'http://server:port/path/script.aspx';
my $username="domain\\user_name";
my $password='password' ;
my $host = 'server:port';
my $ua = LWP::UserAgent->new( keep_alive => 1 );

$ua->credentials( $host, '', $username, $password);

my $req = GET $url;

my $response = $ua->request($req);

printf " %s\n", $response->status_line;

printf "\n\n\n" . $response->content();


##</code><code>##

NTLMSSP
 NTLMSSP identified: NTLMSSP
 NTLM Message Type: NTLMSSP_AUTH (0x00000003)
 Lan Manager Response: [BLANKED OUT]
 NTLM Response: [BLANKED OUT]
 Domain name: ????
 User name: user_name
 Host name: user_name
 Session key: Empty
 Flags: 0x00088205
Host: server:port