#!/usr/bin/perl              &n
bsp; 
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use GD;
&start;
sub start{
    print "Content-type: image/png\n\n";
    $image = new GD::Image(100,20);  
    $rot = $image->colorAllocate(255,0,0); 
    $weiss = $image->colorAllocate(255,255,255);
    $image->string(gdMediumBoldFont,3,5,"Test",$weiss);
    binmode STDOUT;
    print $image->jpeg;
}