#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $mdb_file = "D:\\db1.mdb";

my $connection_string = q{;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=PfadZuDeinerSystemMdw};

my $cn = DBI->connect("dbi:ADO:Data Source=".$mdb_file.$connection_string, "");

my $alles = $cn->selectall_arrayref("SELECT * FROM Tabelle1");

foreach my $row ( @{$alles} )  {
   print join (";", @{$row}), "\n";
}

1;