$ perl -Mstrict -wE 'say -e "fooble" ? 1 : 0; open my $fh, "<", "fooble" || die $!'
0