Проблема с utf-8 при выводе ошибок

У меня выводит:

> perl test.pl 
Вот так выводит обычное сообщение
Так читает из файла:
Тест
Не могу открыть файл: No such file or directory

binmode(STDIN,  ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

О. Заработало. Спасибо.

Хотя, нет. Ошибся. Не работает.

Я просто забыл дополнить. Я ещё опыты проводил и попробовал такой вот вариант:

#!/usr/bin/env perl
#
use strict;
use warnings;
use utf8;
use v5.12;
use open qw(:encoding(UTF-8) :std);

print "Вот так выводит обычное сообщение\n";
print "Так читает из файла:\n";
open(DATAFILE, "< testfile.txt");
while (<DATAFILE>) {
        print "$_";
}
no utf8;
open (FILE2, "< file_that_no_exist") or die "Не могу открыть файл: $!\n";
use utf8;
close(FILE2);

echo $LANG что выдает?

echo $LANG что выдает?

ru_RU.UTF-8

Я проверил ещё этот же скрипт на другой машине с другой системой - тот же косяк. Т.е. проявляется на gentoo и на debian. Не думаю, что ошибка связана с системной локалью. Больше похоже всё-таки на perl.

~/qsand/perl/rusTestLol $ ./test.pl
Вот так выводит обычное сообщение
Так читает из файла:
ывролар
Не могу открыть файл: Нет такого файла или каталога
~/qsand/perl/rusTestLol $ perl -v

This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi

Хм, УМВР, единственное, что убрал

use v5.12;

По причине отсутсвия такового.

Вот так работает

Не заметил.

$! - специальная переменная, берет значения системных ошибок (из errno.h).
Так что, видимо, сам перл уже получает ошибку не в utf8.

Я так понимаю, что перл как раз в utf'е получает, но у него же своё внутреннее представление utf'а. Раньше, помнится надо было использовать utf8::decode для таких случаев, но вот как применить это к $! непонятно.

Это баг: https://rt.perl.org/rt3//Public/Bug/Display.html?id=112208
Perl не знает в какой кодировке система возвращает ошибки.

Можно сделать какой-нибудь такой workaround

sub _($) {
  my $err = shift;
  utf8::decode($err);
  $err;
}

open my $fh, '/dev/xxx' or die _$!;

Ясно. Понял. Спасибо, буду ждать решения и пока делать обёртку.