open my $fh, '<', $qfn  or die;  # ok
open(my $fh, '<', $qfn) or die;  # ok (unrequired parens)
open my $fh, '<', $qfn  || die;  # XXX
open(my $fh, '<', $qfn) || die;  # ok