$word=Win32::OLE->CreateObject('Word.Application');