#!/usr/bin/perl

use Data::UUID 'NameSpace_URL';

#my $du = Data::UUID->new;


#$du->create_str;


if (fork()) {
    print "GOT :".Data::UUID->new->create_str;
    exit;
}

print "GOT :".Data::UUID->new->create_str;