$ssh->waitfor('Please\senter\sthe\soperation\sserial\snumber.\s*', 2) or die "prompt 'operation serial number' not found after 2 second";
    $ssh->send("1");
    print $ssh->peek(1);
$ssh->send("2");