unique.pl

sub unique{&unique1}
sub unique1{sprintf ("%8.8x%4.4x",time,$$)};
sub unique2{sprintf ("%8.8x_%4.4x_%4.4x",time,$$,int(rand(65536)))};