Term :: Readline：encoding-question

Question

「Müller」と入力すると、画面に「M ?? ller」と表示されます。どうすればこの問題を解決できますか？

#!/usr/bin/env perl 
use warnings; 
use 5.012; 
use Term::ReadLine; 

my $term = Term::ReadLine->new('dummy'); 

my $con = $term->readline(': '); 

say $con; 

# On the screen: 
# : M��ller                                     
# Müller 

Answer 1

:utf8層STDINとSTDOUTをファイルハンドル、およびTerm::ReadLine->new()への引数として渡すに適用されます。

binmode STDIN, ':utf8'; 
binmode STDOUT, ':utf8'; 

my $term = Term::ReadLine->new('dummy', \*STDIN, \*STDOUT); 

を