use Win32::ODBC;
$DSN = "DRIVER=Microsoft Access Driver (*.mdb);FIL=MSAccess;DriverId=2;DBQ=1-AOGCapPlan.mdb";

$db=new Win32::ODBC($DSN);    

$db->Sql("SELECT Name FROM MSysObjects");

while ($db->FetchRow()) {
	my %data = $db->DataHash();
	foreach( keys %data ) { print "\n$_ => $data{$_}" ; }
	push @rows, {%data};
}


$db->Close();