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