#!/usr/local/perl/5.15.8/bin/perl -w

my $fname = "foo.utf16";

open my $out, ">:crlf:encoding(UTF-16LE)", $fname or die;
print $out "\x{feff}\x{1234}\n\x{5678}\n";