Thanks a lot for this insightful and very interesting story. It's one of those (sadly few) jewels that from time to time come across this mailing list.
-- $l="\n";$p=q-sub r{rand}sub c{((shift)**2+(shift)**2)<1}while( $i++<=$s){$t++if c r,r}die("Gregor Best, 0xDB9F9A7C, ".($t/$s* 4).$l)-;$s+=ord$$|$_ for split //,$p;srand($s|$$);eval$p;die$@
pgpmoq5pSocOo.pgp
Description: PGP signature