Perl: спящий режим за x секунд до тех пор, пока не будет нажата клавиша

Question

В perl есть ли способ спящего режима программы на определенное время, если пользователь не нажмет клавишу? Ниже приведен мой код:

use Term::ReadKey; 
ReadMode 4; 
while (not defined ($key = ReadKey(-1))) { 
    sleep(50); 
} 
print "Get key $key\n"; 
ReadMode 0; 

Answer 1

Я нашел свое решение. Вот основной ответ

use Term::ReadKey; 
ReadMode 4; 
while(1) { 
    my $key = ReadKey 50; #Sleep for 50 
    if(defined $key) { 
     print "Pressed $key\n"; 
    } else { 
     print "Timed out\n"; 
    } 
} 
ReadMode 0;