my $qfn = 'fpo';
open(my $FILE, '>:encoding(UTF-8)', $qfn)
   or die("Can't create \"$qfn\": $!\n");