#perl.exe -w

# INIT ----
use Parallel::ForkControl;


# VARS ----
my @collections = qw( adw adw_wet_compleet ag-dou ag-gi ag-hc ag-hlo ag-its-sol ag-its-sol-hot agents alg_diversen alg_dossier_juris_en_reso alg_ellis alg_ellis_en alg_kb alg_kfb alg_kluwer_rest alg_pdf alg_rest alg_sdu am b_adw b_adw_wet_compleet b_ag-dou b_ag-gi b_ag-hc b_ag-hlo b_ag-its-sol b_ag-its-sol-hot b_agents b_alg_diversen b_alg_dossier_juris_en_reso b_alg_ellis b_alg_ellis_en b_alg_kb b_alg_kfb b_alg_kluwer_rest b_alg_pdf b_alg_rest b_alg_sdu b_am b_bibliotheek b_bm b_bna-mix b_browsedocs b_curbel b_fmod b_help b_hvg b_hvg-kluwer b_mrp b_pz b_refdocs b_tss b_tss-pdf bibliotheek bm bna-mix  browsedocs curbel fmod help hvg hvg-kluwer images mrp pz refdocs tss tss-pdf );


# SUBS ----
sub mySub {
     my $collection = shift;
     print "Col: $collection\n";
     return;
}


# MAIN ----
my $forker = new Parallel::ForkControl(
                 MaxKids => 5000,
                 MinKids => 5,
                 WatchLoad => 1,
                 MaxLoad => 5.50,
                 Code => &mySub
);


foreach my $col (@collections) {
    $forker->run($col);
}
$forker->cleanup();



##</code><code>##

Col:
CANNOT RUN A  IN RUN()