while ((@cols)=$sth->fetchrow_array){
		if ($row_id) {
			$cur_rowid=$cols[0];
			
			@cols=(@cols[1..$col_cnt]);
			print OFILE join "$delimiter" => (@cols),"\n";	
		}
		else {
			print OFILE join "$delimiter" => (@cols),"\n";
		}

	}  #end while