use Image::Magick;

my $image = Image::Magick->new;

my $x = $image->Read('test.jpg');

$image->Set(compression => 'JPEG');
$image->Set(quality => '100');

$x = $image->Write('out.jpg');