説明不足ですいません。
resizeで画像を小さくした後、Setで画質を下げてます。

以下ソース。

$gazouはアップされた640×480の画像です。


use Image::Magick;

$image = Image::Magick->new;
$image->Read("$gazou");

$image->Resize(width => 160,height => 120);
$image->Set(quality=>50);

$image->Write("$gazou2");