#!/usr/bin/perl -w -T

use Data::UUID (NameSpace_X500);
use strict;

my $uuidgen = Data::UUID->new;

# Get first random seed uuid
my $uuid = $uuidgen->create();
my $prevuuid = $uuidgen->to_string($uuid);

for (1..5) {
    my $uuid = $uuidgen->create_from_name(NameSpace_X500, $prevuuid);

    $prevuuid = $uuidgen->to_string($uuid);

    print $prevuuid . "\n";
};