#!/usr/bin/perl -wT

use strict;
use CGI;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;
use GD::Graph::pie;
use Text::CSV;

use constant TITLE => "Test";


my $q = new CGI;
print $q->header( -type => "image/png", -expires => "-1d" );
warningsToBrowser(1);

my $csv = Text::CSV->new();    # create a new object
my $line;
my @data = ([ qw( Jan Feb Mrz Apr Mai Jun Jul Aug Sep Okt Nov Dez ) ]);

open (DATEI, "<", "daten.csv");
while( defined( $line = <DATEI> ) ) {
   my $status = $csv->parse($line);         # CSV felder parsen

   if ($status) {
     my @columns = $csv->fields();            # da sind die Spalten
     push @data, [ @columns ];
   } 
   else {
     die ("Fehler: " . $csv->error_input ); # Fehler melden
   }
}
close (DATEI);

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


$graph->set(
   title => TITLE,
   '3d' => 0
);

my $gd_image = $graph->plot( \@data );

binmode STDOUT;
print $gd_image->png;