# First attempt
#        1         2         3
#23456789012345678901234567890
$a=a;$a++for 0..285074;print$a

# Second attempt (cheating :P)
print'perl'

##</code><code>##

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