#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DBI;

# establish the connection
my $dbh = DBI->connect('dbi:ODBC:myDSN','username','userpassword',
      { RaiseError => 1, 
        PrintError => 1 } )
   or die "Could not connect to database: $DBI::errstr";
   
# sql query statement
my $sql =<< "SQL";
  SELECT RTRIM(location),RTRIM(CompletionStatus) 
  FROM ewNetworkFaults
  WHERE Type like '%Audio Visual%'
    AND CompletionStatus not like '%Completed%'
SQL
  
my $table = $dbh->selectall_arrayref($sql);
print Dumper($table);