Select Code to Download

#!/usr/bin/perl

use autodie;
...
    nanosleep(1_000_000*rand());
    close $fh;
}

$ wc -l log
$ grep ^1: log | wc -l
$ grep ^2: log | wc -l
...