use DBI;

#open connection to Access database
$dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=C:\Windows\Desktop\meineDB.mdb');

 #prepare and execute SQL statement
 $sqlstatement="SELECT * FROM table1, table2 WHERE table1.spalte = table2.spalte";
 $sth = $dbh->prepare($sqlstatement);
 $sth->execute || 
       die "Could not execute SQL statement ... maybe invalid?";

 #output database results
 while (@row=$sth->fetchrow_array()){ 
    print "@row\n";
 }