#!/usr/local/bin/perl
use strict;
use warnings;
use Image::Magick;
my($image, $x);
$image = Image::Magick->new;
$x=$image->Read('SV000360.JPG');
warn "$x" if "$x";
my($xSize, $ySize) = $image->Get('width', 'height');
print "Width: $xSize\t Height: $ySize\n";
my $text = chr(hex (0xa9));
$text.="© Some person.";
my $yPos=$ySize-50;
print "Text:$text\n";
$x=$image->Annotate(font=>"/usr/share/fonts/msttcorefonts/verdana.ttf", pointsize=>40, weight=>10, fill=>'yellow', text=>"$text",strokewidth=>10, undercolor=>'green', x=>50, y=>$yPos);
warn "$x" if "$x";
#$image->Draw(stroke=>'red', primitive=>'rectangle', points=>'20,20 200,200', x=>100, y=>100);
$x=$image->Write('SV000360_II.JPG');
warn "$x" if "$x";