open F, ">client.csv" or die "couldnt create file $!";

print F "CLIENT NAME,DC,FF,OTHERS\n";

     while ((@xgdat) = $dbh->dbnextrow(1))
      {
        $xgdat[0] =~ s/\,/ /g;
        print F "$xgdat[0],$xgdat[1],$xgdat[2],$xgdat[3]\n";
      }

close F, "client.csv";