Perl：睡眠x秒，除非按键

在perl中，有没有一种方法可以让程序睡眠一定时间，除非用户按键？以下是我的代码：

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

---

我找到了解决办法。这是一个基本答案

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;