Select Code to Download

#!/usr/bin/env perl

...

$result_q->end;
$writer->join();

#!/usr/bin/env perl

...
$manager->wait_all_children;
close($output);
close($input);