ReadMode 3; # stty mode
binmode STDIN, ":raw";
while($key = ReadKey()){
print ord $key;
}