#!/usr/bin/perl
use Term::ReadKey;

my $k;
ReadMode 2;
while (not defined ($k = ReadKey(-1))){
          print "no key pressed\n";
}
print "key: $k pressed\n";
ReadMode 0;