#!/usr/bin/perl -w

use strict;
use Term::ReadKey;

my $key;

ReadMode 0;
$key = ReadKey(0);
print "Key is ", ord($key), "\n";
ReadMode 0;

print "hit enter to exit...\n";
<>;