Select Code to Download

#!/usr/bin/perl
use v5.030;
...
}

$_->join for threads->list;

$ ./pdl-rand.pl | sort >sort.16384.1
$ ./pdl-rand.pl | sort >sort.16384.2
...

$ diff -U 0 sort.16384.1 sort.16384.4|grep -v '@@'|wc -l
19698