#!/usr/bin/perl -w
# ncd.pl

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

my $dbh = DBI->connect('dbi:odbc:SL19962005.mdb', '', '')
              or die "Couldn't connect to database: " . DBI->errstr();

print "All rows with an array of array refs:\n";

# this method prepares and executes the SQL
# and returns back a reference to an array of arrays
my $ar = $dbh->selectall_arrayref('SELECT * FROM players');

foreach my $row (@{$ar}) {
    foreach my $field (@{$row}) {
        print "$field ";
    }
    print "\n";
}

print "\nAnother way:\n";

my $sth = $dbh->prepare('SELECT * FROM users')
              or die "prepare() failed: " . $dbh->errstr();

$sth->execute() or die "execute() failed: " . $sth->errstr();

# grab each row by reference
while ($ar = $sth->fetchrow_arrayref()) {
    foreach my $field (@{$ar}) {
        print "$field ";
    }
    print "\n";
}