i=;
boxes=FindFaces[i,{50,∞}];
Show[i,Graphics[{EdgeForm[{Red,Thick}],Opacity[0],Rectangle@@@boxes}]]