Can`t write words into image(solved)

[tujchl1223]

I want to add some words into image using image::magick, the code is below:
#!/usr/bin/perl -w
use Image::Magick;
$im = Image::Magick->new(size => '1300x5000');
$im->Read('xc:white');
$im->Set(stroke => 'red');
$im->Draw(primitive => 'rectangle',points => '0,0 399,299');
$text = 'Works like magick!';
$im->Annotate(font=>'times.ttf', pointsize=>40, fill=>'green', text=>$text);
$im->Write('png:GDExample.png');
the code is running well and even I can see the retangle on the image, but I can`t find the words!
Could you help me?
Thanks a lot!

[el_supremo]

I think you need to specify a coordinate to Annotate. It is probably defaulting to 0,0 which is the top left of the image and most text won't be visible because it is drawn above the baseline.
As a starting point, try adding
x=>50, y=>50,
to the Annotate call.

Pete

[anthony]

Or set gravity to something else but none. For example NorthWest
is NOT the same as none, generally Center is good.

[tujchl1223]

it works!
Thank you but the most important things in annotate method ,I think, is to specify the type of characters. the code will not work even you set up everything but it.

tujchl

[anthony]

it works!
Thank you but the most important things in annotate method ,I think, is to specify the type of characters. the code will not work even you set up everything but it.

tujchl

What do you mean by "type of characters"?
The font?

Actually I think all the settings are all important, so as to get the desired result.