Help for this page

Select Code to Download

Select or download this

               use Term::ReadKey;
               ReadMode 4; # Turn off controls keys
...
               }
               print "Get key $key\n";
               ReadMode 0; # Reset tty mode before exiting

Select or download this
```
$ perl test.pl
<press d>
Get key d
$
```