#!/usr/bin/perl

# sollte in keinem Script fehlen
use strict;

Usgabe auf der Console (Terminal) ist diese:


[quote]
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;
}

$sth->finish();


$dbh->disconnect();