open( OUT, ">:utf8", $filename ) or die "$filename: $!\n";