$Word->Documents->Open("$dir\\$file") or die "Can't open ", Win32::OLE->LastError());
		$Word->Run("MACRO-NAME");