#!/usr/local/bin/perl
use Image::Magick;

my $image = Image::Magick->new;
my $x = $image->Read("robert.jpg");
	warn "$x" if "$x";

$x = $image->Annotate(text=>'Hello...Are you there?');
	warn "$x" if "$x";

$x = $image->Write("robertanno.jpg");
	warn "$x" if "$x";

##</code><code>##

sh: gs: command not found
sh: gs: command not found