...

/usr/share/doc/perl-TermReadKey/example/test.pl