binmode($fh, ':raw:encoding(UTF-16LE):crlf')

##</code><code>##

binmode($fh, ':encoding(UTF-16LE)')

##</code><code>##

open(my $fh, '<&=:raw:encoding(UTF-16le):crlf', fileno(STDIN));
*STDIN = $fh;