$sth->execute or die "-E- DB error: $DBI::errstr\n";
} elsif($rows == 1) {
# An existing record was found for this elder, update it
print " Updating existing Elder: $elder_name\n";
$sth = $dbh->prepare("update eq_elder set valid=1 where name='$elder_name'");
$sth->execute or die "-E- DB error: $DBI::errstr\n";
$sth->execute or die "-E- DB error: $DBI::errstr\n";
} elsif($rows == 1) {
# An existing record was found for this elder, update it
print " Updating existing Elder: $elder_name\n";
$sth = $dbh->prepare("update eq_elder set valid=1 where name='$elder_name'");
$sth->execute or die "-E- DB error: $DBI::errstr\n";