use warnings;
use strict;
use DBI;

# 1. Mit der Access-Datenbank verbinden
my $dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=C:\\Muster.mdb');

#2. SQL-Statment vorbereiten und ausführen
my $sqlstatement="SELECT verschiedene_Felder FROM Ansprechpartner INNER JOIN PersStammdaten ON Ansprechpartner.StSchlNr = PersStammdaten.SchlNr";
my $sth = $dbh->prepare($sqlstatement);
$sth->execute ||
     die "Konnte SQL Abfrage nicht ausführen ... vielleicht ungültig?";


#3. Ergebnis ausgeben
my @row_ary  = $sth->fetchrow_array;
open AUSGABE, ">Muster.txt";
print AUSGABE "verschiedene_Felder\n";
  while ( @row_ary = $sth->fetchrow_array ) {
    print AUSGABE join(";",@row_ary),"\n";
  }
close AUSGABE;
$dbh->disconnect;