The answer is clearly given in the Net::Telnet manpage section on the waitfor method:

$ok = $obj->waitfor([Match   => $matchop,]
                    [String  => $string,]
                    [Timeout => $secs,]);
[download]