Select Code to Download

while (1) {
    $self->check_start();
...
    # Sleep 1/10 second
    select(undef, undef, undef, 0.1);
}

$SIG{CHLD} = \&reaper;
while (1) {
...
    } while ($pid > 0);
    $SIG{CHLD} = \&reaper;
}