use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use HTTP::Request::Common;
use HTTP::Response;
use LWP::Debug qw(+);

#######################
####Variables $username, etc
########################

my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());

# post login
$mech->get($url);
$mech->form_name('Form1');
$mech->field('txtUserID' => $username);
$mech->field('txtPassword' => $password);
#$mech->field('btnSubmit' => 'Submit');
my $response=$mech->click('btnSubmit');