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: $!";