Select Code to Download

mogrify  crop 200x200+0+0 -gravity center file.jpg

my $image = Image::Magick->new;
$image->Read($file);
...
}

$image->Crop(width => $size, height => $size);

$image->Set(Gravity => 'Center');