open my $fh, '<', $qfn
   || die $!;

##</code><code>##

open my $fh, '<', $qfn
   or die $!;