Select Code to Download

tid. magic
1    0      Worker 1 first  job in while loop
...
2    1      Worker 2 second job in do_work 
1   -1      Worker 1 after exiting while loop
2   -1      Worker 2 after exiting while loop

tid. magic
1    0      Worker 1 first  job in while loop
...
2    0      Worker 2 second job in while loop
2    1      Worker 2 second job in do_work 
2   -1      Worker 2 after exiting while loop

tid. magic
2    0      Worker 2 first  job in while loop
...
1    0      Worker 1 second job in while loop
1    1      Worker 1 second job in do_work 
1   -1      Worker 1 after exiting while loop

my $semSTDOUT : shared;
sub tprint{ lock $semSTDOUT; print @_; }

tprint "$tid: Some text";

sub run_external_command {
    my ( $job, $tid ) = @_;
...
    waitpid( $pid, 0 );
    return $DEFAULTS->{'ret_success'};
}

#! perl -slw
use strict;
...
[3] Worker ending
Program complete