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

my $url = 'http://X.X.X.X/Console/login/login.aspx';

$mech->get( $url );

$mech->submit_form( form_number => 1, fields =>{ 'ctl00$ctl00$cphVeriCentre$cphLogin$txtUser' => 'someone', 'ctl00$ctl00$cphVeriCentre$cphLogin$txtPW' => '12345', 'ctl00$ctl00$cphVeriCentre$cphLogin$ddlServers' => 'Live', button => 'Sign-In' }, ); die unless ($mech->success);

$mech->dump_forms();