#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.1;
use Encode;
use Term::ReadKey;
use Encode::Locale;
binmode STDOUT, 'encoding(console_out)';
binmode STDIN, 'encoding(console_in)';

ReadMode 'cbreak';

my $key = ReadKey();

say decode( 'console_out', $key );  # Windows: ö                                           -  Linux: �

say $key;                           # Windows: "\x{0094}" does not map to cp850 at ...19.  -  Linux: ö
                                    #          \x{0094}
ReadMode 'restore';