#! /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";
}