Listing 2

@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) ;
}