open(my $fh, '<', $qfn)
   or do { ...
         };