#!f:/perl/bin/perl -w

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::pie;
use DBI;
use Data::Dumper;

print header('text/plain');

my $DBH;
my $STH;

### Datenbankverbindung ###

$DBH = DBI->connect("DBI:CSV:Kunden =f:/Apache2/cgi-bin")
              or die "Konnte keine Verbindung zur Datenbank herstellen!$!\n";

$STH = $DBH->prepare("SELECT * FROM Auswertung")
              or die "Konnte SQL-Statement nicht bereitstellen!$!\n";

$STH->execute()
          or die "Ausfuehren nicht moeglich!$!\n";

my @res;

### Werte werden zeilenweise ausgelesen ####

while (my @werte=$STH->fetchrow_array()){
    push @res, [@werte];
}
$STH->finish();
$DBH->disconnect;

print Dumper(\@res);