Select Code to Download

#!/usr/bin/perl -wl
...
# Note: I narrowed it down to this code. The original code
# was about 50 lines. Because this is just a fragment, I couldn't
# think of a proper name for the sub. Sorry :)

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$