for (;;) {
   my @event = $Console->Input();
   last unless ...
}

##</code><code>##

$Console->InputChar(1);