#!/usr/bin/perl -w
use strict;
use Image::Magick;

=comment
my $text = 'test';
my $im = new Image::Magick;
$im->Read("meteo.jpg");
my $rv = $im->Annotate(
   text   => $text,
   font   => 'C:\\WINDOWS\\Fonts\\Arial.ttf',
   x      => 10,
   y      => 10,
);
die("Unable to annotate image: $rv\n") if "$rv";
print "Content-type: image/jpeg\n\n"; 
binmode STDOUT;
print $im->Write('jpeg:-');
=cut


my $image = Image::Magick->new;
$image->Set(size=>'250x100');
$image->Read('1Zen16.jpg');

my $text = "This is a test";

$image->Annotate(
            pointsize=>40, 
	    text=>$text, 
            stroke => '#C0C0C0', # Increase to make stroke more white
            fill => '#505050', #or red etc, Decrease to make fill more black
	    gravity => 'center',
	    x=> -10, # offsets
	    y=> -10  # offsets
	    );

print $image->Write("$0.png");