my $dbh = create_dbh_handle();
my $code = create_closure( $dbh ); 
.... 
my $pm = Parallel::ForkManager->new( $MAX_NR_PROCESSES );
   $pm->run_on_finish( $code ); 

foreach ... {
  my $pid = $pm->start and next;
  ...
  $pm->finish; # Terminates the child process
}

sub create_closure { 
  my( $dbh ) = @_; 
  return sub { 
    my ($pid, $exit_code, $ident) = @_; 
    my $sql = "insert into table values( $pid, $exit_code )";
    $dbh->do( $sql );
  }
}