C:\_32>perl -MMath::MPFR -e "$z=Math::MPFR->new(0);$z/=-1;print $z"
-0