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