use Term::ReadKey;
use Encode::Locale;

ReadMode 3;
my $c = ReadKey;
$c = decode( 'console_in', $c );
Dump $c;
say "[$c]";
ReadMode 0;