user Term::ReadKey;

ReadMode 4;

my $key;

while (!defined ($key = ReadKey(-1))) {
print "Test\n";
sleep(5);
}

ReadMode 0;