use warnings;
use strict;
use DBI;

# Create connection string to database point.csv (output file from scadaexport.pl)
my $dbh = DBI->connect ("dbi:CSV:csv_auto_diag=1", {
      f_dir   => ".",
      f_ext   => ".csv/r",
      f_enc   => "utf-8",
	  file    => "point.csv",
      });

# Associate our csv file with the table name "AFS" and include custom column names
$dbh->{csv_tables}->{AFS} = 
{
      file      => "point.csv",
      col_names => [qw( RECORD SUBSCRIPT ID_SUBSTN CO_SUBSTN AREA_SUBSTN ID_DEVTYP ID_DEVICE NAME_DEVICE AREA_DEVICE ID_MEAS ID_POINT SITE_POINT AREA_POINT )],
};

# Define and Execute SQL to select INTELI and AUTO points
my $sth = $dbh->prepare ("select * from AFS where ID_DEVTYP like 'INTELI%' AND ID_POINT like 'AUTO%'");
$sth->execute;