Select Code to Download

[jonathan@orpheus perl-current]$ ./perl -e'BEGIN { *@=1; }'
Segmentation fault (core dumped)
[jonathan@orpheus perl-current]$ ./perl -e'BEGIN { *@=1; eval '' }'
[jonathan@orpheus perl-current]$