#!/usr/local/bin/perl -w ### ### use strict; use CGI; use CGI::Carp qw /fatalsToBrowser/; my $out = new CGI; use GD; # create a new image my $im = new GD::Image(100,100); # allocate some colors my $white = $im->colorAllocate(255,255,255); my $black = $im->colorAllocate(0,0,0); my $red = $im->colorAllocate(255,0,0); my $blue = $im->colorAllocate(0,0,255); # make the background transparent and interlaced $im->transparent($white); $im->interlaced('true'); # Put a black frame around the picture $im->rectangle(0,0,99,99,$black); # Draw a blue oval $im->arc(50,50,95,75,0,360,$blue); # And fill it with red $im->fill(50,50,$red); #write to image.png open( FH, '>image.png' ) or die "Can't image.png:$!\n"; # make sure we are writing to a binary stream binmode FH; # Convert the image to PNG and print it on standard output print FH $im->png; close FH; print $out->header( 'text/html' ); print < GD test HTML #### ~/cgi-bin/GD$ ./GDtest.pl Content-Type: text/html; charset=ISO-8859-1 GD test