Minify

use Image::Magick;

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

$i->Write('Minify.jpg');