open F,$0;open O,">$$.pl";print O while <F>

##</code><code>##

open O,">$$.pl";print O `cat $0`

##</code><code>##

`cp $0 $$.pl`

##</code><code>##

exec'cp',$0,"$$.pl"

##</code><code>##

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