srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`); Aside from being overkill, it hasn't been necessary to invoke srand() since 5.004. Any system new enough to be running Gnome2 probably doesn't have a Perl that old. :)