use Digest::MD5;

$pretty_darn_close_to_unique = md5_hex(md5_hex(time() . $$ . rand . {}));