Select Code to Download

use v5.030;
use threads;
...
}

$_->join for threads->list;

$ perl test.pl | LC_ALL=C sort | uniq -c | sort -n | tail
      1 0.9999196288117
...
      1 8.48674303988162e-05
      1 9.10499814921195e-05
      1 9.32151475616649e-05

$ perl test.pl | LC_ALL=C sort | uniq -c | sort -n | tail
      3 0.578372644755136
...
      3 0.789289520984441
      3 0.859969220981904
      3 0.975280763021946