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

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