convert.exe -pointsize 200 -stroke #ff0000 -fill #808040 -draw "text 800,650 'Hello world'" -identify "x.JPG" xb.jpg

##</code><code>##

use strict;
use warnings;
use Image::Magick;

my $image = Image::Magick->new ();

$image->ReadImage( 'x.JPG' );
my $err = $image->Draw
  (
  pointsize=>200, stroke=>"#ff0000", fill=>"#90ff40",
  x=>700, y=>650,
  primitive=>"text 'hello world'"
  );
print $err if $err;
$image->Write( 'xb.jpg' );