use Image::Magick;

  my $im=new Image::Magick;    
  $im->Read($fname);
  $im->Annotate(text=>'some text');  
  $im->Set(format=>'Joint Photographic Experts Group JFIF format');
  $im->Write();