#!/usr/local/bin/perl

use GD;
use CGI ':standard';

# This creates a Web GIF image on the fly

# create a new image
$im = new GD::Image(1000,100);
# allocate some colors

                $white = $im ->colorAllocate(255,255,255);
                $black= $im ->colorAllocate(0,0,0);
                $red = $im ->colorAllocate(255,100,0);
                $blue= $im ->colorAllocate(0,150,255);
                $yellow= $im ->colorAllocate(255,200,0);
                $pink= $im ->colorAllocate(150,0,150);
                $im->filledRectangle(10,5,990,15,$pink);
                $im->arc(10,10,10,10,0,360,$black);
                $im->fill(10,10,$white);
                $im->arc(990,10,10,10,270,90,$black);
                $im->fillToBorder(990,10,$black,$pink);

# Convert the image to GIF and print it on standard output
#binmode STDOUT;
print "Content-type: image/gif\n\n";
print $im->gif;