Select Code to Download

        $count = $threadscount;

        if ( $count>$maxthreads ){

use threads;
use threads::shared;
...
        select undef, undef, undef, 0.01;
    }
}