helpers to run the three optimizers on the perl images

optimize.sh

@@ -1,5 +1,10 @@
 #!/bin/sh
 
-rm -f perl_optipng_images/*.png
-optipng -zc1-9 -zm1-9 -zs0-3 -f0-5 -dir perl_optipng_images perl_images/*.png
+rm -f perl_images_optipng/*.png
+optipng -zc1-9 -zm1-9 -zs0-3 -f0-5 -dir perl_images_optipng perl_images/*.png
+
+rm -f perl_images_pngcrush/*.png
+pngcrush -brute -d perl_images_pngcrush/ perl_images/*
+
+perl pngout.pl
 

pngout.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+opendir D, "perl_images" or die $!;
+while (my $file = readdir D){
+
+	if ($file =~ /\.png$/){
+
+		print `pngout-static -y perl_images/$file perl_images_pngout/$file`;
+	}
+}