in reply to How to generate a unique word or number?

use Data::GUID: 
my $word = Data::GUID->new()->as_base64();

[download]

In Section Seekers of Perl Wisdom