#!/cygdrive/c/strawberry/perl/bin/perl
# test for large files in my Images directories.
# I do this because large files are usually slow to load
# and it means that I forgot to decrease the pixels from the
# original image.  Usually, this is forgotten with pictures
# for places.
{
   @list = `ls -l ../2*/*/Images/*[jJ]*`;
   print "\nChecking for large Images files:\n";
   foreach (@list) {
	@line = split/\s+/;
	if ($line[4] > 1000000) {
		if (!($line[7] =~ /ZbThumb/) && !($line[7] =~ /CR2/)) {
			print $line[8], "\n";
		}
	}
   }
}