$ perl -Mwarnings -Mstrict -e'BEGIN { *! = \1; open my $fd, "< nonexistent"; print "$!\n"; }'
1