# Select the login form
$mech->form_with_fields('user_name','user_pass');
$mech->set_fields( user_name => 'username', user_pass => 'secr1t' );
$mech->click('login');
print $mech->content;