$ perl -le'$x=+0.0; print $x; print $x<=>0'
0
0

$ perl -le'$x=-0.0; print $x; print $x<=>0'
-0
0