Select Code to Download

use LWP::UserAgent;
my $ua = new LWP::UserAgent('keep_alive' => '1');
...
$ua->credentials('intranet:80', '', "domain\\user", 'pass');
my $response =$ua->get($url);
print $response->code();

use WWW::Mechanize;
my $mech = WWW::Mechanize->new('keep_alive' => 1);
...
$mech->credentials('intranet:80', '', "domain\\user", 'pass');
$mech->get( 'http://intranet/mypage' );
print $mech->status();