Help for this page
$telnet->waitfor( -match => qr{ogin} ); $telnet->print($user); $telnet->waitfor( -match => qr{assword} ); $telnet->print($password);
$telnet->input_log($log_file); $telnet->dump_log($dump_file);