my $OCRresult = $miDoc->{Images}{'Item(0)'}{Layout}{Text};

##</code><code>##

use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const;

Win32::OLE::Const->Load("Microsoft Office Document Imaging 12\.0 Type Library") or die "Cannot use the Office 2007 OCR API";
my $miDoc = Win32::OLE->new('MODI.Document') or die "Cannot create a MODI object";
$miDoc->Create('OCR-test.tif');
$miDoc->OCR(LangId =>'miLANG_ENGLISH');
my $OCRresult = $miDoc->{Images}{'Item(0)'}{Layout}{Text};
print $OCRresult;