use Image::Magick; 
$image = Image::Magick->new; 
$image->Read("test1.jpg"); 
$image->Annotate(
                  font=>'arial.ttf', 
                  pointsize=>36, 
                  fill=>'white',
                  text=>'TestText', 
                  x=>10, 
                  y=>10
                ); 
$image->Write("test2.jpg");