#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $mdb_file = "d:\\access.mdb";

my $connection_string = q{;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=d:\\system.mdw};

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

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

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

1;