#! /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'));