[Perl] Image Magick

[Salman ®]

Saludos a tod en s, esta lista esta un poco parada, pero seguro que aun hay mucha
gente subscrita como yo.

Estoy con un problemilla con el image magick.

Estoy intentando generar una imagen con texto aleatorio para incluir en los
formularios de correo como medio anti-spam

El codigo que tengo de pruebas es el siguiente:

============================================
#!/usr/bin/perl -w
####################################################################################

use strict;
use Image::Magick;

my @Caracteres = ("a" .. "z", "0" .. "9");
my $PalabraAleatoria = join ("", @Caracteres[map{rand @Caracteres}(1 .. 8)]);

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

$image->Read('entrada.jpg');

$image->Annotate(pointsize=>20, fill=>'green', text=>$PalabraAleatoria);

$image->Annotate(pointsize=>25, text=>"Hallo", x=>300,y=>50);

$image->Write("salida.jpg");

print "Content-type: text/html\n\n";

print qq~
   <a href=#><img alt="imagen origen" src=entrada.jpg ></a>
    ->
    <a href=#><img alt="imagen modificada" src=salida.jpg ></a>
~;
============================================

La imagen de "salida" se genera, pero no "añade" el texto que le mando con el
"Annotate"

¿ Alguna sugerencia ?

El script en pruebas esta en:
http://mercedesbensalah.es/Formulario/Crear_Imagen.cgi

Ahh, se me olvidaba, en el log de apache no se genera ningun tipo de mensaje de 
error.

Gracias anticipadas.

--
Saludos
Salvador Guzman
Salman PSL
Vigo, Galicia, España
+34 986.21.30.27
Correo @Salman.ES
http://Salman.EU/