use strict;
use Term::ReadKey;
ReadMode 5;
while (my $key = ReadKey(0)){
	print ord($key)
}
ReadMode 0;