eval {
  # das eval-block "sterben lassen" (verlassen) wenn ALARM ausgelöst wird:
  local $SIG{ALRM}=sub{ die() };

  # 10 Sekunden Warten
  alarm(10);

  #lesen von STDIN
  while (<>) {
    chomp;

    ...

   # 10 Sekunden Warten Timer zurück setzen
   alarm(10);
  }

  # kein Alarm
  alarm(0);
};
# kein Alarm
alarm(0);

...