if ( not $dbh->ping ) {
    $dbh = my_reconnect()
}