#!/usr/bin/perl -w
use Image::OCR::Tesseract 'get_ocr';

my $dir=$ARGV[0];
my $texto=$ARGV[1];
my $image;
opendir(FD, $dir) or die ("Can't open ./ directory");
foreach $image (readdir(FD))
{

    $_ = $image;
    if (/gr7200710120253_B.tif/) {
        print "$image \n";
        $_ = get_ocr($dir.$image);
        print $_;       
        if ( /$texto/ ) {

            print"$image $text \n";
        }
    }
}
close(FD);