use Image::Magick;
my ($image, %info);

$image = Image::Magick->new;

# イメージの読み込み
$image->Read('myimage.gif');

# 背景色しかない部分を切り落とす
$image->Trim();

# この他の切り抜き関数としては、座標を数値で指定するCropがあります。
# 下の2つの指定はどちらも同じ結果になります。
# $image->Crop(width=>26, height=>26, x=>287, y=>251);
# $image->Crop(geometry=>"26×26+287+251");

# この下の2行がミソ
# Image::Magick 内では切り抜き後の画像のサイズを
# 画像のサイズとして保持していますが、Set 関数で page を以下のように
# 指定しないと、書き出されるファイルに切り落としたはずの部分が
# 入ってしまいます。
@info{'width', 'height'} = $image->Get('width', 'height');
$image->Set(page=>"$info{width}x$info{height}+0+0");

# ファイルの書き出し
$image->Write('resized.gif');