Generate a hundred UUID.

unique_uuid.pl

#!usr/bin/perl
use strict;
use warnings;
use feature(qw/say/);
use Data::UUID;

my $ug = new Data::UUID;
my $idx = 0;
my $uuid;
my $unik;

while ( $idx < 100) {
    $idx++;
    $uuid = $ug->create();
    $unik = $ug->to_string($uuid);
    
    say $unik;
}

say "End.";