use strict;
use warnings;
use Term::ReadKey;

my $key;

ReadMode("raw");
# Maximal 5 s Zeit fuer die Eingabe
$key = ReadKey(5); 

if (defined $key)
  { print "Eingabe war: $key\n"; }
else
  { print "Zu spaet!\n"; }
ReadMode("restore");