sub run_select { #takes a dbh, a string of SQL
	my ($dbh_, $sql_) = @_;
	my ($result, $sth, $col_name_aref);
	print "in run_select sql_: $sql_\n";	
	if ($sql_ =~ /;/) {
		$sql_ =~ s/;//;
	}
	$sth = $dbh_->prepare($sql_);
	eval {$sth->execute;};
	
	if ($@) {
		write_log($log_file, "error with execute in run_select in $0\n");
		write_log($log_file, "error: $@");
	} 
	else {
		$col_name_aref = $sth->{NAME};
		$result = $sth->fetchall_arrayref;
	}
	return ($result, $col_name_aref); #returns an aref of the values and an aref of the column names
}