open(my $fh, '<:encoding(UTF-8)', $qfn)
    or die("Can't open file \"$qfn\": $!\n");