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

use Data::UUID;
use strict;

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

for (1..5) {
    my $uuid = $uuidgen->create();

    print $uuidgen->to_string($uuid) . "\n";
};