Select Code to Download

    my $fork_manager = new Parallel::ForkManager(10);
    $fork_manager->start and next; # fork
...
    my $dbh_child = $dbh->clone();
    $dbh->{InactiveDestroy} = 1;
    $dbh = $dbh_child;

sub db_execution {
    ...
...
    $sth->execute or die "$!:" . $sth->errstr;
    ...
}