#!perl -w use strict; use warnings; package ReadKeypress; use Term::ReadKey; use Fcntl; if ($^O =~ /Win32/i) { sysopen(IN,'CONIN$',O_RDWR) or die "Unable to open console input:$!"; sysopen(OUT,'CONOUT$',O_RDWR) or die "Unable to open console output:$!"; } else { open(IN,"