use GD;
use strict;
use warnings;

my $bild = new GD::Image(100,100);
my $gray = $bild->colorAllocate(200,200,200);
my $blue = $bild->colorAllocate(0,0,255);
my $red = $bild->colorAllocate(255,0,0);
my $green = $bild->colorAllocate(0,255,0);
my $yellow = $bild->colorAllocate(255,255,0);

my @linestyle = ($blue,$blue,     # 2 Pixel blau
                 $red,$red,       # 2 Pixel rot
                 $yellow,$yellow, # usw.
                 gdTransparent,gdTransparent);

$bild->rectangle(20,20,80,80,$red);
$bild->setStyle(@linestyle);
$bild->rectangle(25,25,75,75,gdStyled);
$bild->rectangle(24,24,74,74,gdStyled);

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