Select Code to Download

do {
   ...
} while ($worker->pending());

sub doOperation () {
    my $ithread = threads->tid();
...
        ## Do something useful here...
    }
}