$word = Win32::OLE->GetActiveObject('Word.Application')
     || Win32::OLE->new('Word.Application');
$mydoc = $word->Documents->Open($xfile);

##</code><code>##

use Win32;
use Win32::OLE;
use Win32::OLE "with";
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Const 'Microsoft Word';
use Win32::OLE::Const 'Visual Basic For Applications';
use Win32::OLE::Variant;