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('E:/ocr-test.tif') or die "Cannot open the file for OCR";