Select Code to Download

while (!$die) {
    foreach my $key ($select->can_read()) {  # foreach
...
    $pm->wait_all_children;
}