#!d:/bin/perl-w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::pie;
use DBI;

my $DBH;
my $STH;

###Datenbankverbindung###

$DBH=DBI->connect("DBI:CSV:Auswertung=d:/Programme/Apache Group/Apache/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 "Ausführen nicht möglich!$!\n";

my @werte;
my @res;

while (@werte=$STH->fetchow_array();{

push @res, @werte;
}
$STH->finish();
$STH->disconnect;

my @data=(
[$res[0],[$res[3],[$res[6],
[$res[1],[$res[4],[$res[7],
[$res[2],[$res[5],[$res[8]
);

my $my_graph=GD::Graph::pie->(new(300,300);

$my_graph->set(
x_label=>´???´,
y_label=>´???´,
title=>´Auswertung´
);

my $format=$my_graph->export_format;
print header("image/$format");
binmode STDOUT;
print $my_graph->plot(\@data)->$format();

DHL;K&N;Hellmann
1;5;3
2;4;5
3;3;1
4;2;2
5;1;4

use Text::CSV_XS;
use CGI;

my $cgi = CGI->new;
print $cgi->header();

my $csv = Text::CSV_XS->new();
open my $fh, "<", "Auswertung.csv" or die $!;
print $cgi->start_table;
while (my $line = <$fh>) {
   my $status = $csv->parse($line);
   my @columns = $csv->fields();
   print $cgi->Tr( map {
           $cgi->td($_;)
       } @columns);
}
print $cgi->end_table;