use strict;
use warnings;
use GD;

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->rectangle(20,20,80,80,$rot);
$bild->line(20,20,80,80,$gruen);
$bild->line(80,20,20,80,$gruen);
$bild->line(50,20,50,80,$gruen);
$bild->line(20,50,80,50,$gruen);

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