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