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";
}