Instead of use constant PI => (22 / 7) * 2;, give the core use Math::Complex; a try. Just use the module, and a sub which defines PI more accurately is defined (via 4*arctan(1)). The sub is even called pi, so you wouldn't even have to change most of your code.

Other than that, an EXCELLENT node, nice work!