srand.pl

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