Chop

use Image::Magick;

$i = Image::Magick->new;
$i->Read('original.jpg');

$i2 = $i->Clone();
$i2->Chop(geometry=>'100x100+75+75');
$i2->Write('Chop1.jpg');

$i2 = $i->Clone();
$i2->Chop(width=>100, height=>0, x=>95, y=>0);
$i2->Write('Chop2.jpg');