Select Code to Download

$x = $y || $z;       # ok
$x = ( $y || $z );   # ok (unrequired parens)
$x = $y or $z;       # XXX
$x = ( $y or $z );   # ok

$x = $y or $z;
   means
( $x = $y ) or $z;

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

open my $fh, '<', $qfn  || die;
   means
open my $fh, '<', ( $qfn  || die );