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

##</code><code>##

BEGIN { *@=1; eval '1' }
Segmentation fault

##</code><code>##

BEGIN { *@=1; die 'kk' }
Segmentation fault