Select Code to Download

% time ./re.sh 
real    0m5,201s
user    0m43,394s
sys    0m1,302

#!/usr/bin/env perl
# https://www.perlmonks.org/?node_id=11147200
...
    }
)->spawn;

# first, truncate output file
{ open my $fh, '>', "out-sed.dat" or die "$!\n"; }
...
$mce->process("in.txt", { user_args => [ "out-sed.dat" ] })
$mce->shutdown;

# Process file(s).
my $status = 0;
...
$mce->shutdown; # reap workers
exit $status;

# Worker function.
sub process_chunk {
...
    MCE->relay_unlock;
}

# Worker function.
sub process_chunk {
...
    MCE->relay_unlock;
}