1#!/usr/bin/perl -w
2
3my $cnt = shift || 1000;
4
5my $collision = 0;
6
7for (1..$cnt) {
8    my $foo = `$^X -l -Mblib smp-test/uuid-fork.pl`;
9    my @ret = ($foo =~ m/^(.*)$/mg);
10    ++$collision#, print "==> collision ($foo)\n"
11	if $ret[0] eq $ret[1];
12}
13
14print sprintf("%5.3f %% collision\n", $collision*100/$cnt);
15