Select Code to Download

use strict;
use warnings;
...
print "reaping threads\n";
$_->join for threads->list;

use strict;
use warnings;
...
print "reaping children\n";
waitpid($_, 0) for (keys %pids);