use Image::Magick;

#$image->Quantize(colorspace=>'gray');

$image = Image::Magick->new;
$image->Set(size=>'100x100');
$image->ReadImage('xc:white');
$image->Set('pixel[49,49]'=>'red');

$text = 'Dude';
$image->Annotate(font=>'test.ttf', pointsize=>40, stroke=>'green', text=>$text);


$filename = "test.png";
$image->Write("$filename");

##</code><code>##

use GD;

$im = new GD::Image(200, 36);

$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);

$im->stringTTF($black,"test.ttf", 12, 0, 0, 0,"Font Reactor") or die $!;

open(IMAGE, ">test.png") or die;
binmode IMAGE;
print IMAGE $im->png;