open(FH, '>:encoding(UTF-8):via(File::BOM):utf8', $filename)