#!/usr/bin/perl
#
# Perl Grafik-Modul einbinden   
   use GD;
# HTTP-Header ausgeben
   print "Content-type: image/png\n\n";
# Neues Image erzeugen.
   $image1 = new GD::Image(100,100);
# Einige Farben definieren.
   $black = $image1->colorAllocate(0,0,0);       
   $red = $image1->colorAllocate(255,0,0);    
   $green = $image1->colorAllocate(0,255,0);      
   $blue = $image1->colorAllocate(0,0,255);
# Ein grünes gefülltes Rechteck zeichnen.
   $image1->filledRectangle(0,0,99,99,$green);
# Ein schwarzes Rechteck zeichnen (Rahmen).
   $image1->rectangle(0,0,99,99,$black);
# Blaues Oval zeichnen
   $image1->arc(50,50,95,75,0,360,$blue);
# und mit Rot füllen.
   $image1->fill(50,50,$red);
# Einen Binär-Stream sicherstellen.
   binmode STDOUT;
# Image nach PNG umwandeln und über die  
# auf Standardausgabe ausgeben.
   print $image1->png;
#