use strict;
use Win32::ODBC;
my $DSN = "DRIVER=Microsoft Access Driver (*.mdb);FIL=MSAccess;DriverId=25;DBQ=c:\\my documents\\test.mdb";

my $db;
my $query = "SELECT * FROM Books";

if (!($db = new Win32::ODBC($DSN)))
{
	print "Error connecting to $DSN\n";
	print "Error: " . Win32::ODBC::Error() . "\n";
}

if( $db->Sql($query) )
{
	print "Error executing query [ \"$query\" ]\n";
	print "Error: " . Win32::ODBC::Error() . "\n";
}

# Debug stuff, to show return results:
# $db->DumpData();

while( $db->FetchRow() )
{
	my %fields = $db->DataHash;

	print "$fields{'BookID'}: $fields{'Book Title'}\n";
}

$db->Close();