use strict;
use warnings;
use Image::Magick;
 
my $image = Image::Magick->new();

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

$image->Crop(geometry => '590x315+580+890');
 
$image->Frame(inner => 2, outer => 2, 
              width => 20, height => 20);
 
$image->Annotate(text => "Woohoo!", 
                 x => '100', y => '100',
                 gravity => 'Center',
                 fill => "red", 
                 font => 'Generic.ttf',
                 pointsize => 24);

$image->Write('A3801.jpg');
$image->Write('win:');