bash-2.05b$ cat readkey.pl
#!/usr/bin/perl
use Term::ReadKey;
 
ReadMode 4; # Turn off controls keys
while (not defined ($key = ReadKey(-1))) {}
print "Get key $key\n";
ReadMode 0; # Reset tty mode before exiting
bash-2.05b$ ./readkey.pl
Get key 7