Select Code to Download

open (FILE1, "<:encoding(UTF-16BE)", $file1) or die "Can not read file
+ $file1: $! \n";