use warnings;
use strict;
use DBI;
use Text::CSV_XS;

# Create connection string to database point.csv 
my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    # CSV specific attributes
    f_ext              => ".csv/r",
    f_encoding         => "utf-8",
    # DBI attributes
    RaiseError         => 1,
    PrintError         => 1,
    ChopBlanks         => 1,
    ShowErrorStatement => 1,
    FetchHashKeyName   => "NAME_uc", # You want uc (I prefer lc)
    });

my $sth = $dbh->prepare ("select * from point where ID_DEVTYP like 'INTELI%' AND ID_POINT like 'AUTO%'");
$sth->execute;
my @columns = @{$sth->{NAME_uc}};

# Create AFS CSV with Columns
my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
open my $fh, ">", "AFS.csv" or die "AFS.csv: $!";
$csv->print ($fh, \@columns);

# Cycle through SQL results on ROW basis and print to AFS CSV file
while (my $row = $sth->fetchrow_hashref) {
    $csv->print ($fh, [ @{$row}{@columns} ]);
    }
# Close file    
close $fh;