open(my $fh_log, '>>', $qfn_log)
   or die(qq{Cannot open log file "$qfn_log": $!\n});