Select Code to Download

> 0x00000: 2f 62 69 6e  2f 70 61 73  73 77 64 0d  0a           /bin/pa
+sswd..

...

< 0x00000: 45 6e 74 65  72 20 6c 6f  67 69 6e 28  4e 49 53 2b  Enter l
+ogin(NIS+
< 0x00010: 29 20 70 61  73 73 77 6f  72 64 3a 20               ) passw
+ord:

$telnet->dump_log("log.log");
    $telnet->cmd($PASSWD) or report_error("ERROR", "No password prompt
+ found, contact Information Technologies: ");
...
    $telnet->waitfor('/password: ?$/i') or report_error("ERROR", "No p
+assword prompt found, contact Information Technologies: ");
    $telnet->print($new_password);
    $telnet->waitfor('/changed/');