perl -MData::UUID -le 'print Data::UUID->new->create_str'

##</code><code>##

perl -MData::UUID -le 'print Data::UUID->new->create_from_name_str("tablename?",rand())'