use strict;
use 5.10.1;
use Encode;
use Term::ReadKey;
use Encode::Locale;

Encode::Locale::reinit('cp850');

binmode STDOUT, ":encoding(console_out)";
binmode STDIN, ":encoding(console_in)";

say $Encode::Locale::VERSION;
say $Term::ReadKey::VERSION;

say $Encode::Locale::ENCODING_LOCALE;
say $Encode::Locale::ENCODING_LOCALE_FS;
say $Encode::Locale::ENCODING_CONSOLE_OUT;
say $Encode::Locale::ENCODING_CONSOLE_IN;
say "";

ReadMode 'cbreak';
$| = 1;
my $key = ReadKey();
say "|$key|";
ReadMode 'restore';

my $in = <STDIN>;
chomp $in;
say "[$in]";