eval {
  $mech->get($url_login);
  $mech->form_number($form_nummer);
  $mech->field('username' => $username);
  $mech->field('password' => $password);
  $mech->click();
  1;
} or warn "some call failed: $@";
[download]