my $sql= "SELECT blah blah....";
   Fetch_w_callback( "COPY ($sql) TO STDOUT CSV HEADER", # Let pg do csv work 
	  sub {
		   my ($row,$state) = @_;
		   print $row,"\n";
		   ##$fieldnames ||= $state->{STH}->{NAME} || [keys %$row]; 
           ##if ($state->{ROW} ==1 ){
           ##      print $state->{HEADER} = 
           ##            join(",",@$fieldnames, "SOURCE=\@$ENV{HOSTNAME}"
           ##                      . " on " . scalar(localtime(time)))  ."\n"; # Header row  
           ##}                                          
           ##
		   ##print join(",", map{defined $_?$_:""}@$row{@$fieldnames}) ."\n";
		   return 0;
		},
		$state
	  );