$insert->execute ($row[0]) or die "No se puede insertar en la tabla : $dbh->errstr\n";

$insert->execute ($row[0]) or Enviar_Correo and die "No se puede insertar en la tabla : $dbh->errstr\n";