use POSIX "sys_wait_h";
use POSIX "signal_h";
      ...
      ...
      ...
sub reaper {
	my $process_id = waitpid(-1,&WNOHANG);
	if (WIFEXITED($?)) {
		$process_count--;
	}
}

$SIG{CHLD} = \&reaper;