use Term::ReadKey;
Term::ReadKey::ReadMode 'ultra-raw';
my $c = ReadKey 0;