Select Code to Download

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

$Console->InputChar(1);