BEGIN { *! = 1; open my $fd, 'nonexistent'; print "$!\n"; }
Use of uninitialized value in concatenation (.) or string at - line 1.