use DBI;

# Connect to the database
my $DSN = 'driver=Microsoft Access Driver (*.mdb);dbq=database1.mdb';
my $dbh = DBI->connect("dbi:ODBC:$DSN") || die "Couldn't open database: $DBI::errstr;";

# Build a query
my $SQL1 = $dbh->prepare(<<End_SQL) || die "Couldnt prepare statement: $DBI::errstr;";
select NAME_FIELD, TITLE_FIELD, EMAIL_FIELD FROM TBL_PEOPLE WHERE (TITLE LIKE 'monk') ORDER BY NAME
End_SQL

# Execute the query
$SQL1->execute() || die "Couldn't execute statement: $DBI::errstr; stopped";

while ( my ($resultField1, $resultField2, $resultField3) = $SQL1->fetchrow_array() ) {

	# perform any formatting/storage/etc with each record
}

# Disconnect from the database
$dbh->disconnect();