@forkPids = () ; $serialPid = 0 ; foreach $group (@enabledGroups) { my $idgrp = $group->{IDGRP} ; sleep 3 ; unless($forkPids[$serialPid]=fork) { my $result = Database::createConnection( $data_source, $username, $password ) ; analisysGroup($idgrp) ; Database::destroyConnection() ; exit 0 ; } $serialPid++ ; } foreach $singlePid (@forkPids) { myLog("Wait pid = $singlePid") ; waitpid($singlePid,0) ; }