my $mech = WWW::Mechanize->new();
$mech->get('http://loginpage/Account/LogOn');
my $result = $mech->submit_form(
    form_number =>  '1',
    fields => {
        'UserName'  => '$username',
        'Password'  => "$pw",
    },
);