As an alternative, you could use Data::UUID (or the older UUID module]:

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

The generated strings are 68 characters long, containing letters, numbers and hyphens, and essentially guaranteed to be unique.