Dafür gibt's die Funktion rand (siehe perldoc -f rand) und ein Modul (Digest::MD5). Nur was das uniqid macht, weiß ich nicht.

edit pq: s/Digenst/Digest/\n\n

<!--EDIT|pq|1142938353-->