#!/usr/bin/perl

print "Content-type: text/html\n\n";

use Image::Magick;
my $image = Image::Magick->new; #новый проект
my $x = $image->Read("photo.jpg"); #открываем файл

####
my ($ox,$oy)=$image->Get('base-columns','base-rows'); #определяем ширину и высоту изображения
# ЛИБО
my ($ox,$oy)=$image->Get('width','height');
####

my $nx=int(($ox/$oy)* 150 ); #вычисляем ширину, если высоту сделать  150 
$image->Resize(width=>$nx, height=> 150 ); #Делаем resize (изменения размера)
if($nx >  200 ) { #Если ширина получилась больше  200 
   my $nnx = int(($nx- 200 )/ 2 ); #Вычисляем откуда нам резать
   $image->Crop(x=>$nnx, y=> 0 ); #Задаем откуда будем резать
   $image->Crop('200x150'); #С того места вырезаем 200х150
}
$x = $image->Write("photo.jpg"); #Сохраняем изображение.

identify -list Format | grep -i jpeg

./configure --with-jpeg=yes LIBS='-L/path_to_lib/lib' CPPFLAGS='-I/path_to_lib/include'