#$word_app = Win32::OLE->new('Word.Application', 'Quit(wdDoNotSaveChanges)'); # Winword program doesn't terminate
		#$word_app = Win32::OLE->new('Word.Application', 'Quit'); # Problem: Ask for save changes for all documents
		#$word_app = Win32::OLE->new('Word.Application'); # 2 Winword programs which doesn't terminate.
		$word_app = Win32::OLE->new('Word.Application', 'Quit(wdDoNotSaveChanges)');

##</code><code>##

if ($obj = $word_app->Documents->open($file, 0, 1)) {
	$obj->Close('wdDoNotSaveChanges');
}