Implode

use Image::Magick;

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

$i2 = $i->Clone();
$i2->Implode(factor=>20);
$i2->Write('Implode20.jpg');

$i2 = $i->Clone();
$i2->Implode(factor=>30);
$i2->Write('Implode30.jpg');

$i2 = $i->Clone();
$i2->Implode(factor=>40);
$i2->Write('Implode40.jpg');

$i2 = $i->Clone();
$i2->Implode(factor=>-10);
$i2->Write('Implode10m.jpg');