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

my $key;

ReadMode("raw");
while (not defined ($key = ReadKey(-1))) 
 { } # No key yet

print "Eingabe war: $key\n";
ReadMode("restore");