あと、以下の記述は俺が使う条件下ではあまり品質が合っていないようです。

srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);

今の一番の問題は時間です。
同じ時間だから似たような結果になる、と言うのを避けたいです。

同じ条件下で1000回以上「1-100」の整数を求めた時、
「連続して同じ数字が出ない」
と
「平均的に全て出てくる」
と言う条件を満たしたのがグットです。