initial commit.

1 files changed, 22 insertions, 0 deletions

diff --git a/check.pl b/check.pl
new file mode 100755
index 0000000..02fa8fb
--- /dev/null
+++ b/check.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $file = 'data';
+open my $info, $file or die "Could not open $file: $!";
+
+my @list;
+
+while( my $line = <$info>)  {
+	chomp $line;
+	if(! -e "images/$line.png") {
+		print "Found missing: $line\n";	
+	} 
+	if ($line ~~ @list)
+	{
+		print "Found duplicate: $line\n"
+	}
+	push(@list, $line)
+}
+
+close $info;