#!/usr/bin/perl -w

use strict;

foreach my $file (readpipe("find . -name '*.jpg'")) {
        chop $file;
        my ($root, $f, $e) = split/\./, $file;
        next if -f ".$f.txt";
        warn "tesseract '$file' '.$f' -l slv";
 #       next;
        system("tesseract '$file' '.$f' -l slv");
}