#!/usr/bin/perl

use warnings;
use strict;

use Image::Magick;

my ($image, $x);

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

my $text = "Hi there";

$image->Annotate(font=>'kai.ttf', pointsize=>40, fill=>'green', text=>
+$text);


$x = $image->Write('test.png');

warn "$x" if "$x";

print "The file $x has been created";