You could ignore the events you don't want.

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

Or you could use InputChar instead.

$Console->InputChar(1);
[download]