open($fh, '<', $qfn) || die "...";
open($fh, '<', $qfn) or die "...";
open $fh, '<', $qfn or die "...";