Plot[E^(-1/z^2),{z,-5,5}]

ComplexPlot3D[z,{z,-1-I,1+I}]

z=rho E^(i theta), rho=|Z|, theta= "argument"
z^2=rho^2 E^(i 2 theta)

ComplexPlot3D[z^2,{z,-1-I,1+I}]

ComplexPlot3D[E^(-1/z^2),{z,-1-I,1+I}]

Show[ComplexPlot3D[E^(-1/z^2),{z,-1-I,1+I}],ComplexPlot3D[1,{z,-1-I,1+I}]]