#!/usr/bin/perl
use DBI;


my $dsn = "DBI:ODBC:C:\\perl\\access\\db2.mdb";
my $dbh = DBI->connect($dsn, "", "");

$sth=$dbh->prepare("SELECT * FROM BAUTEIL");
$sth->execute;


while (my @ausgabe = $sth->fetchrow_array)
  {
  print $ausgabe[0]."\t".$ausgabe[1]."\t".$ausgabe[2]."\t".$ausgabe[3]."\n";

  }