#!/usr/bin/perl

# sollte in keinem Script fehlen
use strict;
use warnings;

# DBI Modul Laden
use DBI;

# Verbindung aufbauen
my $dbh = DBI->connect('DBI:CSV:f_dir=/home/ritter/Desktop');

# Testausgabe
my $sth=$dbh->prepare('SELECT * FROM prospects.csv');
$sth->execute();
while(my @row = $sth->fetchrow_array)
{ print join(' ',@row)."\n";
}

$sth->finish();


$dbh->disconnect();