until (
    $dbh=DBI->connect_cached($connectionInfo,$user,$passwd, {PrintError=>0} )
	) { if ($sqlw){print "Retrying SQL Connect ($DBI::errstr) ...";} sleep(1); }
	
  until (
	  eval {
  	$sth=$dbh->prepare($insert);
    if ($sth->execute()) {
      $sth->finish;
		}
	}
	) { if ($sqlw){print "Retrying SQL Insert ($DBI::errstr)...";} sleep (1); $retry_count++;}