#!/usr/local/perl/5.15.8/bin/perl -w
use Devel::Peek;

my $fname = "foo.utf16";

# create correct file, using the same old layer mantra
# (the extra :utf8 is only required with older perls)
open my $out, ">:raw:encoding(UTF-16LE):crlf:utf8", $fname or die;
print $out "\x{feff}\x{1234}\n\x{5678}\n";
close $out;

# read file back in
open my $in, "<:crlf:encoding(UTF-16LE)", $fname or die;
$/ = undef;
Dump <$in>;