Select Code to Download

sub db_keepalive {
  # if connection is dead
  if(!$dbh->ping) {
...
      or die $DBI::errstr;
  }
}