Select Code to Download

use threads       qw( async );
use Thread::Queue qw( );
...
while (defined(my $item = $q->dequeue())) {
   ...
}

use threads           qw( async );
use Win32::Socketpair qw( winsocketpair );
...
};

... select $fr_parent_sock and $fr_child_sock ...