Plot[Sec[z], {z, -2*Pi, 2*Pi}]