#!/usr/bin/perl -w
use strict;
use Image::Magick;
my $text = 'test';
my $im = new Image::Magick;
$im->Read("meteo.jpg");
$im->Annotate(text=>$text, X=>10, Y=>10);
binmode STDOUT;
select(STDOUT);
$| = 1;
undef $/;
print "Content-type: image/jpeg\n\n"; 
print $im->Write('jpeg:-');