#!/usr/local/bin/perl
use Term::ReadKey;
use Time::HiRes;
use strict;
my @char;

ReadMode 4; # Turn off controls keys
while (lc $char[0] ne "q") {
   while (not ($char[0] = ReadKey(-1))) {
#      Time::HiRes::sleep 0.1;
   }
   print $char[0];
   select((select(STDOUT), $| = 1)[0]); #flush STDOUT buffer
}
ReadMode 0; # Reset tty mode before exiting