#!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;

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 @werte;
my @res;

### Werte werden zeilenweise ausgelesen ####

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

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

my @data=@res;
warn Dumper \@data;

print Dumper(@werte, @res);

### Grafikeigenschaften festlegen ###

my $graph = new GD::Graph::pie(300, 300);

$graph->set(
   title           => 'Auswertung',
   label           => 'Category',
   axislabelclr    => 'black',
   '3d'            => 1,
   start_angle     => 90,
   suppress_angle => 5,
   )
   or warn $graph->error;

### Ausgabe ###

my $format = $graph->export_format;
print header("image/$format");
binmode STDOUT;
my $gd = $graph->plot(\@data) or die $graph->error;
print $gd->gif();

#!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);

#!f:/perl/bin/perl 

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

my $DBH;
my $STH;

### Datenbankverbindung ###

my $dbh = DBI->connect("DBI:CSV:f_dir=".$FindBin::Bin);
my $stmt = "SELECT * FROM db_grafik";

my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

my @werte;
my @res;

### Werte werden zeilenweise ausgelesen ####

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

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

my @data=@res;
warn Dumper \@data;


### Grafikeigenschaften festlegen ###

my $graph = new GD::Graph::pie(300, 300);

$graph->set(
   title           => 'Auswertung',
   label           => 'Category',
   axislabelclr    => 'black',
   '3d'            => 1,
   start_angle     => 90,
   suppress_angle => 5,
   )
   or warn $graph->error;

### Ausgabe ###

my $format = $graph->export_format;
print header("image/$format");
binmode STDOUT;
my $gd = $graph->plot(\@data) or die $graph->error;
print $gd->gif();

Execution ERROR:  Cannot open F:\\Apache2\\cgi-bin\\db_grafik: No such file or directory at F:/Perl/lib/CGI/Carp.pm line 319.