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