#!/usr/bin/env perl

use GD;
use strict;

print "Content-type: image/png\n\n";

my $diagramm = new GD::Image(800,600);

my $white = $diagramm->colorAllocate(255,255,255);
my $blue = $diagramm->colorAllocate(0,0,255);
my $black = $diagramm->colorAllocate(0,0,0);

$diagramm->line(80,500,700,500,$black);
$diagramm->line(80,40,80,500,$black);

$diagramm->string(gdLargeFont,30,510,"Tage",$blue);
$diagramm->stringUp(gdLargeFont,30,140,"Temperatur",$blue);

my $i;
for($i = 0, $i<200, $i+10){
    $diagramm->line(80,490-$i,700,490-$i,$black);
}

binmode STDOUT;
print $diagramm->png;