use Data::UUID;
  my $uuid_gen = Data::UUID->new();
  ...
  my $unique = $uuid_gen->create_str();