/new password: #### Enter l+ogin(NIS+ ) password #### $telnet->waitfor('/new password: ?$/i') or report_error("ERROR", "No password prompt found, contact Information Technologies: "); #### $telnet->print($new_password);