eval { $dbh->do("UPDATE computer SET didDiagnostic = 1 WHERE CustId = *000-000002*") };
  print "Update failed: $@\n" if $@;