$miDoc->Create('OCR-test-result.mdi');
my $OCRresult = $miDoc->{Images}->Item(0)->{Layout}{Text};
print $OCRresult;

##</code><code>##

$miDoc->Create('OCR-test.tif');
$miDoc->OCR(LangId =>'miLANG_ENGLISH');
my $OCRresult = $miDoc->{Images}->Item(0)->{Layout}{Text};
print $OCRresult;

##</code><code>##

 
$miDoc->OCR(LangId =>'miLANG_ENGLISH');

##</code><code>##

eval {$miDoc->OCR(LangId =>'miLANG_ENGLISH')}; 
warn $@ if $@;