C:\_32\C>perl -MMath::Complex -e "$z = cplx(0, 1); print $z ** 0"
1