open(my $fh, '<', $file) or die "error opening '$file': $!";

##</code><code>##

open(my $fh, '<', $file) || die "error opening '$file': $!";

##</code><code>##

if ($x > 5 || $y < 10) ...

##</code><code>##

if ($x > 5 or $y < 10) ...