#!/usr/bin/perl -w

use strict;
use File::stat;

$| = 1;

opendir(DIR, ".") or die "Cannot opendir .: $!\n";
my @images = grep(/\.tif$/, (sort readdir(DIR)));
closedir(DIR);

my @tiffinfo;
foreach my $f (@images) {
    my ($xres, $yres);
    foreach $_ (`tiffinfo "$f"`) {
	/^  Image Width:/ and do {
	    ($xres, $yres) = (/^.*: ([0-9]+).*: ([0-9]+).*$/)[0, 1];
	    last;
	}
    }
    my $sb = stat($f);
    my $size = int($sb->size / 1024.); $size == 0 and $size = 1;
    push @tiffinfo, "$f\t$xres\t$yres\t" . ($xres * $yres) . "\t$size\n";
}

open(FILE, ">.tiffinfo");
print FILE @tiffinfo;
close(FILE);
.