#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $dsn =  'driver=Microsoft Access-Treiber (*.mdb); dbq=C:\datenbank.mdb';

my $dbh = DBI->connect("DBI:ODBC:$dsn") or die "Fehler beim Connect:",$DBI::errstr;

my $sth = $dbh->prepare("SHOW TABLES") or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();
while(my @row = $sth->fetchrow_array()){
  print @row,"\n";
}

use WIN32::ODBC; 
my $db = new Win32::ODBC("SOMEDSN") or die "Can't create connection to DSN: $!\n"; 
my @tables = $db->TableList() or die "Can't get tables: $!\n"; $db->Close(); 
print join("\n", @tables);

#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $dsn =  'driver=Microsoft Access-Treiber (*.mdb); dbq=C:\db.mdb';

my $dbh = DBI->connect("DBI:ODBC:$dsn") or die "Fehler beim Connect:",$DBI::errstr;
print $_,"\n" for($dbh->tables('','','%','TABLE'));