ContourPlot[Evaluate@{x + y == 1, x - y == 1}, {x, -2, 2}, {y, -2, 2}]
How can I add the perpendicularity symbol (like the red symbol shown) exactly at the vertex where the two lines meet, to indicate that they are mutually perpendicular?