5 Sekunden auf BEnutzereingabe warten ansonsten weiter

[Mark]

So funktioniert es. Danke für Eure Anregungen.

eval {  
  local $SIG{ALRM} = sub { die "alarm\n" };  
  alarm 5;  
  chomp($remark = <STDIN>);  
};  
alarm 0;