use Image::Magick;
my $img = Image::Magick->new;
$img->Read('./img.jpg' );

#before
$img->Identify();

$img->Quantize( colors => 18 );
$img->Set( type => 'Palette' );

#after
$img->Identify();