srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`); Doesn't do it for you? -- Patrick Cole <Patrick.Cole at anu.edu.au> Programmer, the John Curtin School of Medical Research, ANU PGP 1024R/60D74C7D C8E0BC7969BE7899AA0FEB16F84BFE5A