my $qfn = $CFG->{admin_root_path}."/amazon_template_tmp/it_other.csv"; open(my $fh, '>:encoding(iso-latin-1)', $qfn) or die("Can't create \"$qfn\": $!\n"); print($fh $the_contents);