>>665
やっと自己解決しました。

use Term::ReadKey;
ReadMode 4;
END { ReadMode 0 }
while ((my $key=ReadKey) ne 'q'){print ord($key)."\n";}

これで押したキーのASCIIコードが表示されるようになりました。
しかし矢印キーは一度押すと同時に３つのアスキーコードを
送ってくるようなので、矢印キーが押されたかどうかを判定するスクリプトを
どう処理したら良いの困っています。ヒントを下さい。