#!/usr/bin/perl

use Image::Magick;

$image = Image::Magick->new;
$image->Set(size=>'150x50');
$image->ReadImage('xc:white');

$text = "This is a test";
$image->Annotate(pointsize=>40, fill=>'red', text=>$text);

print "Content-type: image/gif\n\n";
print $image->Write('gif:-');