use DBI;
use Data::Dumper;
use strict;

my $dbh = DBI->connect('dbi:ODBC:TestingDB',"","",{RaiseError => 1, AutoCommit=>1}) || die "failed";
my $sth = $dbh->prepare("select cof_name, price from coffees") or die;
$sth->execute or die;
while (my $rows = $sth->fetchall_arrayref([0,1]), 3) {
	last if ($#$rows < 0);
}
$dbh->disconnect();