Select Code to Download

async {
    while( $Q->dequeue() ) {
...
        ## do housekeeping.
    }
};

while( my( $nfound, $timeleft) = select( ..., $timeout ) ) {
    if( $timeleft ) {
...
        ## deal with the event
    }
}

use Time::HiRes qw[ sleep ];
...
...
             ## Do housekeeping (if required).
        }
    }

async{ 1 while Win32::Sleep( 100 ); }->join;;