Help for this page
open(my $fh, '<', $file) or die "error opening '$file': $!";
open(my $fh, '<', $file) || die "error opening '$file': $!";
if ($x > 5 || $y < 10) ...
if ($x > 5 or $y < 10) ...