#!/usr/bin/perl

use Image::Magick;
#print "Content-type: image/jpg\n\n"; 

my $jpeg_file = 'frontpage.jpg';
my $im = Image::Magick->new();
my $rc = $im->Read($jpeg_file);
 die $rc if $rc;
                       
$rc = $im->Annotate(
     gravity => "Center",
     text => "Hello ImageMagick!",
     font => "arial.ttf",
     stroke => "red",
     fill=> "red",
     pointsize => 28,
);
  die $rc if $rc;

$rc = $im->Write("$0.jpg");
   die $rc if $rc;