#!f:/Perl/bin/perl

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:Kunden =f:/Apache2/cgi-bin")
                or die "Konnte keine Verbindung zur Datenbank herstellen!$!\n";

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

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

my @werte;
my @res;

### Werte werden zeilenweise ausgelesen #### 

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

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

my @data=@res;


### Grafikeigenschaften festlegen ###

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

$my_graph->set( 
      x_label           => 'Name',
      y_label           => 'Bewertung',
      title             => 'Auswertung Kunden',
      y_max_value       => 600000,
      y_tick_number     => 8,
      y_label_skip      => 2 
  );

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