Have you tried
ContourPlot[{x^2 - y^2, 2 x y}, {x, -2, 2}, {y, -2, 2}, ContourShading -> False] ComplexContourPlot[ReIm[z^2], {z, 2}]
That worked like a treat. Thank you!
