use open qw' IO :raw:perlio:encoding(UTF-16LE):crlf ';