#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Image::PNG::Libpng;
use Image::Quantize::PNG;
use Getopt::Long;
my $iq = Image::Quantize::PNG->new ();
for (@ARGV) {
    my $out = $_;
    if (! ($out =~ s/\.png/-quant.png/)) {
	die "$_ not PNG?";
    }
    $iq->quantize_file (in => $_, out => $out);
}
exit;

# Local variables:
# mode: perl
# End:
