#!/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;
#!/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;