Select Code to Download

eval {
    $dbh->do(...);
...
        # not connection related error
    }
}

unless (fork()) {
    $dbh->{InactiveDestroy} = 0;
    exit;
}
wait();

sub query {
    $dbh->selectrow_array(q{ SELECT now() });
...
              Rate ping+query      query
ping+query  6349/s         --       -39%
query      10327/s        63%         --