$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 password prompt found, contact Information Technologies: ");
    $telnet->print($password);
    $telnet->waitfor('/password: ?$/i') or report_error("ERROR", "No password prompt found, contact Information Technologies: ");
    $telnet->print($new_password);
    $telnet->waitfor('/password: ?$/i') or report_error("ERROR", "No password prompt found, contact Information Technologies: ");
    $telnet->print($new_password);
    $telnet->waitfor('/changed/');