use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;

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

$mech->get($url_login);
$mech->form_number($form_number);
$mech->field('username' => $username);
$mech->field('password' => $password);

#Submit the form.. ahoy ahoy
$mech->click();