#!/usr/bin/perl use strict; opendir (D, ".") or die; my @files = grep { /^\d+\.png$/ && `md5sum $_` !~ /^03714c1ee726c0130662b5aa6e576633/ } readdir(D); close D; print "jsdraw archive\n"; foreach (@files) { print "\n"; } print "\n";