$ug = new Data::UUID;
print $ug->create_str();