$file="Test1.enc"; 
open my $FH, ">:raw:encoding(UTF16-LE):crlf:utf8", "$file"; 
print $FH "\x{FEFF}"; 
print $FH "�qy�{z��{��y����~"; 
print $FH "$enc1"; 
close $FH;