my $fork_manager = new Parallel::ForkManager(10);
    $fork_manager->start and next; # fork

    # Clone parent dbh
    my $dbh_child = $dbh->clone();
    $dbh->{InactiveDestroy} = 1;
    $dbh = $dbh_child;

##</code><code>##

sub db_execution {
    ...
    my $dbh = $db->connect( 'students' ) or die $!;
    my $dbh_child = $dbh->clone();
    $dbh->{InactiveDestroy} = 1;
    $dbh = $dbh_child;
    my $sth = $dbh->prepare( $sql ) or die "$!:" . $dbh->errstr;
    $sth->execute or die "$!:" . $sth->errstr;
    ...
}