$mech->get("http://www.fuddit.com/login"); $mech->form_number(1); $mech->field( 'user_login' => $user); $mech->field( 'passwd_login' => $pass ); $mech->submit(); open(DEBUG,">>debug.html"); print DEBUG $mech->content(); close(DEBUG); system(PAUSE);