use Image::Magick; 
my($image);   
$image = Image::Magick->new;
$image->Set(size=>'100x100');

$image->ReadImage('xc:white');
$text = 'Works like magick!';
$image->Annotate (font=>'tahoma.ttf', pointsize=>8, fill=>'green', text=>$text, x=>20, y=>20);

$image->Write('test.png');