При использовании бинарного режима я должен открывать слои из, возможно, ранее использовавшегося binmode? #! / usr / bin / env perl использовать предупреждения; используйте 5.012; использовать автоделку; откройте мой $ tty, '>: encoding (utf8)', '/ dev /