Select Code to Download

Readonly my $MAX_ATTEMPTS => 5;
my ( $i, $dbh );
...
    my $msg = "$ts $host had to try $i time(s) to write to $DB";
    warn $msg;
}

my ( $num_tries, $curr_dbh );
UPD_CURR_DB:
...
    } ## end if ( !$rv )
} ## end elsif ( $i > 1 )  [ if ( $i == 5 )
($dbh) && $dbh->disconnect;