Write `perpendicular(m1, m2)` returning True if their slopes describe perpendicular lines (m1*m2 == -1). Allow tolerance 1e-9.