open FH, "<:encoding(utf16)", $filename
    or die "Couldn't open '$filename' : $!";

##</code><code>##

./perl -Ilib -we 'open(FH, "<:encoding(utf16)", "utf16");print <FH>'