field1, field2, f3, f4, f5
Value1, value2, v3, v4, v5
Value1, value2, v3, v4, v5

field1, field2, f3, f4, f5, f6, f7
Value1, value2, v3, v4, v5, v6, v7
Value1, value2, v3, v4, v5, v6, v7

##</code><code>##

		
if ($format eq "CSV") 
{
  while ($row = $sth->fetchrow_hashref)
  {
    while( my ($k, $v) = each %{$row} ) 
    {
      print $k;
    }
    foreach $col (keys %{$row}) 
    {
      print $$row{$col} . ",";
    }
    print "\n";
  }
  print "\n";
}