#!/usr/bin/perl -w
use Term::ReadKey;

ReadMode 4;
while (($key=ReadKey(0)) ne 'Q') {
  print "Got key ",ord($key),"\n";
}
ReadMode 0;