RosettaCodeData/Task/Zero-to-the-zero-power/Perl/zero-to-the-zero-power.pl

print 0 ** 0, "\n";

use Math::Complex;

print cplx(0,0) ** cplx(0,0), "\n";