Color quantization: Difference between revisions

=={{header|Perl}}==

<lang perl>use strict;

use warnings;

use Imager;

my $img = Imager->new;

$img->read(file => 'frog.png');

my $img16 = $img->to_paletted({ max_colors => 16});

$img16->write(file => "frog-16.png")</lang>

Compare offsite images: [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/frog.png frog.png] vs.

[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/frog-16.png frog-16.png]