13:09 >perl -Mstrict -wE "my ($y, $z); my $x = (defined $y or defined $z or 'default'); say $x;"
default
####
13:09 >perl -Mstrict -wE "my ($y, $z); my $x = $y // $z // 'default'; say $x;"
default
13:09 >
####
open(my $fh, '<', $filename) or die "Cannot open file '$filename' for reading: $!";