use GD;
use strict;
use warnings;

my $bild = new GD::Image(100,100);
my $gray = $bild->colorAllocate(200,200,200);
my $blau = $bild->colorAllocate(0,0,255);
my $rot = $bild->colorAllocate(255,0,0);
my $gruen = $bild->colorAllocate(0,255,0);
$bild->filledRectangle(20,20,50,50,$rot);
$bild->filledRectangle(50,50,80,80,$rot);
$bild->filledRectangle(20,50,50,80,$blau);
$bild->filledRectangle(50,20,80,50,$blau);
$bild->arc(50,50,50,50,0,360,$gruen);
$bild->arc(50,50,51,51,0,360,$gruen);
$bild->arc(50,50,52,52,0,360,$gruen);

open(OUT, ">", "gd-bild6.gif");
binmode OUT;   # nur bei Windows noetig
print OUT $bild->gif;
close OUT;