use strict;
use DBI;
use Data::Dumper qw(Dumper);

my $dsn = 'dbi:ODBC:driver=Microsoft Access Driver (*.mdb,*.accdb);' .
	'dbq=C:\Database2.accdb';
my $dbh = DBI->connect($dsn, '','') or die DBI->errstr();

my $query = "SELECT * FROM Table1 LIMIT 1";
my $sth = $dbh->prepare($query);
$sth->execute() or die $sth->errstr();
my $row = $sth->fetchrow_hashref();

print Dumper($row);