#!/usr/bin/perl -wT

use strict;
use CGI;
use GD::Graph::pie;
use Text::CSV;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;
use constant TITLE => "Test";

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 $q = new CGI;
my $graph = new GD::Graph::pie( 300, 300 );


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

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

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

binmode STDOUT;
print $gd_image->png;