D:\>perl -MMath::BigInt -le "$x = Math::BigInt->new(1) / inf; print $x; print ref($x);"
0
Math::BigInt

D:\>perl -MMath::BigInt -le "$x = Math::BigInt->new(1) / -inf; print $x; print ref($x);"
-1
Math::BigInt