Help for this page

Select Code to Download


  1. or download this
    BEGIN { *! = 1; open my $fd, 'nonexistent'; print "$!\n"; }
Use of uninitialized value in concatenation (.) or string at - line 1.
  2. or download this
    BEGIN { *@=1; eval '1' }
Segmentation fault
  3. or download this
    BEGIN { *@=1; die 'kk' }
Segmentation fault