#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $url = 'http://www.ntlmserver:80/.aspx';
my $File_link = 'http://www.ntlmserver:80/file.pdf';

my $ua = new LWP::UserAgent(keep_alive=>1);
$ua->credentials('www.ntlmserver:80', '', 'domain\\user', 'passwd');

my $req = POST $File_link;
          [ search => 'www', errors => 0 ];
print $ua->request($req)->as_string;