if ($mech->success()) { $mech->sleep(1); # waiting for load site $mech->form_number(1); $mech->value( username => $user ); $mech->value( password => $pass ); $mech->sleep(1); show_screen($mech); }