sub MakeAllDBHsForkSafe {
    my %drivers = DBI->installed_drivers;
    foreach my $drh (values %drivers) {
      $_->{InactiveDestroy} = 1 for (grep {defined} @{$drh->{ChildHandles}});
    }
}