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