Select Code to Download

$ time perl parallel.pl wc < LARGE_FILE
(snip)...
Waiting for workers to finish
...
real    0m2.332s
user    0m2.277s
sys    0m0.052s

use v5.20;
use strict;
...
        print substr($_->{out}, 0, $end+1, '') if $end >= 0;
    }
}