#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use FindBin ();

my $dbh = DBI->connect("DBI:CSV:f_dir=".$FindBin::Bin);
my $stmt = "SELECT * FROM Kunden";

my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

while(my @row = $sth->fetchrow_array()){
    print "@row\n";
}