Select Code to Download

use strict;
use warnings;
...

binmode STDIN, ':raw:encoding(ucs-2le):crlf:utf8' or die;
dump_layers STDIN;

unix encoding(UCS-2LE) utf8 crlf utf8
unix encoding(UCS-2LE) utf8 crlf utf8
unix crlf encoding(UCS-2LE) utf8
unix crlf encoding(UCS-2LE) utf8

binmode $fh, ':raw:pop:encoding(ucs-2le):crlf:utf8';
#                  ^^^