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