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

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

##</code><code>##

$ perl -wle'$x=0+Infinity; print $x; print $x<=>0'
inf
1

$ perl -wle'$x=0-Infinity; print $x; print $x<=>0'
-inf
-1

$ perl -wle'$x=0+NaN; print $x; print $x<=>0'
nan
Use of uninitialized value in print at -e line 1.