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