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);

//Removing this section doesn't crach Perl
$filename = "test.png";
open(DATA, ">$filename");
$image->Write(file=>DATA, filename=>$filename);
close(DATA);