use DBI;
use DBD::ODBC;
use strict;
use warnings;

DBI->trace(DBD::ODBC->parse_trace_flags('odbcconnection|odbcunicode'));

my $dbh = DBI->connect('dbi:ODBC:boutique', {RaiseError => 1, PrintError => 1} ); # data source set up in /etc/odbc.ini
my $table = "ARTICLES";
my $sql;
my $query;
my $result;
my ($i, $j);

$sql = SELECT "REF" FROM "$table" LIMIT 5|;
print qq~sql : $sql\n\n~;

$query = $dbh->prepare($sql);
$query->execute;
$result = $query->fetchall_arrayref();
for $i ( 0 .. $#{$result} ) {
   print qq~row $i : \t~;
      for $j ( 0 .. $#{$result->[$i]} ) {
         if ($result->[$i][$j] eq ""){
            print qq~NULL\t~;
         } else {
	    print qq~$result->[$i][$j]\t~;
	 }
      }
      print qq~\n~;
}

$query->finish();
$dbh->disconnect();