#!perl;

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Authen::NTLM qw(nt_hash lm_hash);

my $my_pass = "<pwd here>";
my $client = new_client Authen::NTLM(lm_hash($my_pass), nt_hash($my_pass));

# How does the ntlm functions tie in with Lwp methods?
my $ua = LWP::UserAgent->new(keep_alive=>1);
$ua->proxy('http','<proxy name here>');
my $resp = $ua->request(GET "http://www.perl.com");
my $htmcode = $resp->{_content};

print "here comes the output...\n$htmcode\n";