Select Code to Download

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

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

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