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