use LWP::UserAgent;
 use HTTP::Request::Common;
 my $url = 'http://www.bbc.co.uk/';

 # Set up the ntlm client and then the base64 encoded ntlm handshake message
 my $ua = new LWP::UserAgent(keep_alive=>1);
 #$ua -> proxy ('http', "http://my_domain\\myuser:mypass@myproxy:8080" );
 $ua -> proxy ('http', "http://myproxy:8080" );
 $ua->credentials('www.bbc.co.uk:80', '', "mydomain\\myuser", 'mypass');
 $ua->credentials('myproxy:8080', '', "mydomain\\myuser", 'mypass');

 $request = GET $url;
 print "--Performing request now...-----------\n";
 $response = $ua->request($request);
 print "--Done with request-------------------\n";

 if ($response->is_success) {print "It worked!->" . $response->code . "\n"}
 else {print "It didn't work!->" . $response->code . "\n"}