use warnings;
use strict;
use Term::InKey;
use IO::Handle;
    STDOUT->autoflush(1);

my $x='';

print "receiving chars\n";

while ($x ne 'x') {
   $x = ReadKey();
   print uc($x);
}