open (DATA, "<:encoding(utf16be)", "$filename") or die "Couldn't open DATA: $!";
while (<DATA>) {
	print;
}
close DATA;