my $parent_dbh = DBI->connect(...);
   $parent_dbh->{ InactiveDestroy } = 0;

   if(my $pid = fork()) {
      # do stuff
   }