perl -MTerm::ReadKey -E"ReadMode 3; say ord ReadKey( 0 ) while 1"