my $fh;
if (!open($fh, '<', $qfn)) {
   ...
}