Select Code to Download

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

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

`cp $0 $$.pl`

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

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