Select Code to Download

use strict;
use Parallel::ForkControl;
...
       ........
       return 1;
}

my $forker = new Parallel::ForkControl(
...
               MaxLoad    => 5.00,
               Code       => \&getStats
);