$ perl ./tst.pl
Segmentation fault