#!perl
use strict;
use DBI;
my $dbfile = "c:/temp/Database.accdb";
my $dsn = 'driver=Microsoft Access Driver (*.mdb, *.accdb);dbq='.$dbfile;
my $dbh = DBI->connect("dbi:ODBC:$dsn", '', '') 
   or die $DBI::errstr;;

print join "\n",$dbh->tables();