Okay, this is a little two line program that outputs a never-ending double helix:

{@a=(' ')x18;$a[int(sin($_/2)*9)+9]=$a[int(cos($_/2)*
9)+9]='*';print@a;print"\n";for(1..10**5){}$_++;redo}
[download]

Zenon Zabinski | zdog | zdog7@hotmail.com