use Term::ReadKey;
my $key;
while (not defined ($key = ReadKey(-1))) {
# No key yet
}
print "Get key '$key'\n";
print ord($key);
print "\n";
print chr($key);