#!/usr/bin/env perl

use strict;
use warnings;

use DBI;
use Data::Dumper;

# MYSQL CONFIG VARIABLES
my $host = "localhost";
my $db = "XYZ";
my $dbuser = "XYZ";
my $dbpw = "XYZ";

# CONNECT TO MYSQL
my $dbh = DBI->connect("DBI:mysql:$db", $dbuser, $dbpw) || die "Could not connect to database: $DBI::errstr";

my $file = "../sql/code.sql";
my $myquery;
{
  local $/ = undef;
  open FILE, $file or die "Couldn't open file: $!";
  $myquery = <FILE>;
  close FILE;
}

my $sth = $dbh->prepare($myquery);
$sth->execute();

my $tbl_ary_ref = $sth->fetchall_arrayref;
my $nrows = scalar @{ $tbl_ary_ref };