use strict; 
use warnings;
use diagnostics;
use Class::DBI::Loader;   

use DBI;
#use replace;
use File::Glob ':glob';
#Variable Declarations
#############
#---Database Credentials
my $DBUserName                     = "******";
my $DBPassword                     = "****";
my $DBName                         = "dbi:MSSQL:dbservername";
#------Used in Database Transactions
my $dbh                         = "";
my $sqlStatement                 = "";
my $sqlCmd                         = "";
#---Variables used to gather Easy Set Table names
my @EasySetTableNames            = ();


#------Establish DB Connection
$dbh = DBI->connect( $DBName, $DBUserName, $DBPassword,{ PrintError =>
+ 0,AutoCommit => 0})
        || die "Database connection creation failed: $DBI::errstr\n";
# Get the Easy Set Tables
#---These tables in the Insight Database all start with AI_  so get at
+ list of those tables
$sqlStatement = "SELECT * from tableA ";
$sqlCmd = $dbh->prepare($sqlStatement);
$sqlCmd->execute();
@EasySetTableNames = @{$dbh->selectcol_arrayref($sqlStatement)};
print "hi";