$ perl -MIO::Select -E'
   my $sel = IO::Select->new(\*STDIN);
   $SIG{ALRM} = sub { };
   alarm(1);
   while (my @ready = $sel->can_read()) {
      # ...
   }
   say "HERE";
'
HERE