$telnet->waitfor('/ Continue $/i') or die "Can't find enter to continue", $telnet->lastline;

##</code><code>##

$telnet->timeout(30); # for a 30 second timeout
$telnet->waitfor('/ Continue $/i');
$telnet->timeout(10); # reset timeout to 10 second