use Win32::OLE qw(CP_UTF8);
use Win32::OLE::Const 'Microsoft Word';

$Win32::OLE::CP = CP_UTF8;
my $W = Win32::OLE->GetActiveObject('Word.Application')
              || Win32::OLE->new('Word.Application')
              || die ("couldn't create Word object");
			  
$W->{'Visible'} = 1;
my $document = $W->Documents->Open("D:\\mydoc.doc")
    || die("Unable to open document ", Win32::OLE->LastError());

print 	$document."\n";