#!/usr/bin/perl 
use strict;
use warnings;
use Parallel::ForkManager;
use constant NUM => shift; # number of children to spawn.

my $pfm = new Parallel::ForkManager(NUM);
my $id = 0; # a unique id for each process

# a sub to be run *from within the parent thread* at child creation.
my $init = sub {
  my ($pid, $ident) = @_;
  print "++ $ident started, pid: $pid\n";    
};

# a sub to be run *from within the parent thread* at child termination.
my $finalize = sub {
  my ($pid, $exit_code, $ident) = @_;
  print "-- $ident finalized, pid: $pid\n";
};

# set the subrefs
$pfm->run_on_start($init); 
$pfm->run_on_finish($finalize);

# now for the fun bit. 
for(1..NUM) {

  # spawn a new process and break to begin the next iteration, as each 
  # child process will continue the loop but the parent should not. 
  my $pid = $pfm->start(++$id) and next;
  $main::db = DBI->connect( ... );  # use your specific  initialization args

  # Do your stuff, sit in a loop to service requests, etc.

  $main::db->commit(); # or rollback, or something depending on conditions.
  $main::db->disconnect();
  $pfm->finish(); # exterminate! exterminate!
}

# make sure we don't leave any zombies roaming about.
$pfm->wait_all_children();