/usr/share/doc/libterm-readkey-perl/examples