while(1) { $processes = 0; foreach $compressedFile ( @pdfFiles ) { $pdfFile = $compressedFile; $pdfFile =~ s/\.Z//; # - For each pdf file fork a new process upto MAX_PROCESSES. if( $my_pid = fork()) { $processes++; if( $processes >= $MAX_PROCESSES ) { $wait = wait(); print "WAIT => $wait\n" if( $debug ); print "PID => $my_pid\n" if( $debug ); if( $wait ) { $processes-- ; } } elsif ( !defined $my_pid ) { die "Error: Cannot fork process: $!"; } } elsif ( $my_pid == 0 ) { &load_file($pdfFile); exit 0; } } if( $daemon_mode ) { $sleep = $sleepTime; print "LOAD_PDF => Sleeping $sleep seconds\n" if( $debug ); sleep $sleep; } else { print "LOAD_PDF => Finished!\n" if ($debug); exit 0; } }