gistfile1.txt

#!/usr/bin/perl6
sub MAIN($file) {
    my $warn = run('pngcrush', '-n', '-warn', $file, :err).err.slurp-rest;
    if $warn.contains("PCS illuminant is not D50"|"known incorrect sRGB profile"|"iCCP: Not recognizing known sRGB profile that has been edited") {
        say "Fixing $file";
        my $output = run('pngcrush', '-warn', '-ow', '-rem', 'allb', '-reduce', $file, "$file.tmp", :err).err.slurp-rest;
        note $output unless $output eq $warn;
    }   
    elsif $warn {
        note "Unknown warning: $warn in $file";
    }
}