[root@devel3 root]# cat key
#!/usr/bin/perl
use Term::ReadKey;
my $RAW = $ARGV[0] ? 1 : 0;
ReadMode 4 unless $RAW;
sleep 1 while (not defined ($key = ReadKey(-1)))
printf "Get key '%s' %d \%o\n", $key, ord($key), ord($key);
ReadMode 0 unless $RAW;
[root@devel3 root]#