#!/usr/bin/perl

foreach $f (<out*.tif>) {
  print "*** $f\n";
  print `./ocr $f test.dict`;
}