Select Code to Download

#!/usr/bin/env perl

use strict;
...
while (threads::running) {
    $_->join for threads->list(threads::joinable);
}

#!/usr/bin/env perl

use strict;
...

    select(undef,undef,undef,0.5);
}