Почему Term :: Size, кажется, портит выходную кодировку Perl?

Question

Модуль Term :: Size перемешивает кодировку. Как я могу это исправить?

#!/usr/bin/env perl
use warnings; use strict;
use 5.010;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';
use Term::Size;

my $string = 'Hällö';
say $string;

my $columns = ( Term::Size::chars *STDOUT{IO} )[0];

say $columns;
say $string;

Выход:

Hallo
140
H ll

Answer 1

Установка binmode после получения количества столбцов, кажется, помогает:

say $string;

my $columns = ( Term::Size::chars *STDOUT{IO} )[0];
binmode STDOUT, ':encoding(UTF-8)';

say $columns;
say $string;

Выходы

Hällö
80
Hällö

---

Странно то, что этот код прекрасно работает с Perl 5.8 (вывод правильный) без необходимости сбрасывать binmode

Answer 2

Или используя "символы":

#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';
use Term::Size qw(chars);

my $string = 'Hällö';
say $string;

my $columns = ( chars )[0];

say $columns;
say $string;

Выход:

Hallo
82
Hällö