#!/usr/bin/perl


use strict;
use vars qw($global);
use lib '/data/www/VIOXYS/shin/libs';                   # Define Library Location

use YKlib::strings;

my $namespace = undef; # will use the default UUID_NS_DNS;
my $data = 'VIOXYS';

mkdir &makeUUID('ver4');

__END__
print 'ver1 - Time   : ',&makeUUID('ver1'),"\n";
print 'ver3 - MD5    : ',&makeUUID('ver3',$namespace,$data),"\n";
print 'ver4 - Random : ',&makeUUID('ver4'),"\n";
print 'ver5 - SHA1   : ',&makeUUID('ver5',$namespace,$data),"\n";