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();