#!C:\Perl\bin -w
use WWW::Mechanize;

my $url    = "(Intranet URL)";
# Create a new instance of WWW::Mechanize

my $mech = WWW::Mechanize->new( autocheck => 1 );
my $username = 'USERID';
my $password = 'PASS';
$mech->credentials($username, $password);

# Retrieve the login page
$mech->get($url);