in reply to Perl : How to Create Unique String/Number?

use Digest::MD5; 
print Digest::MD5::md5_base64( rand ), "\n";

# BxaMo0Fkirbh1A+9JbbvjQ

[download]

update: see String::Random

In Section Seekers of Perl Wisdom