$ perl -e 'for (-2.0,-1.9,-1.5,-1.1,-1.0,-0.9,-0.5,-0.1,-0)
 {$v = $_ * 0; printf("%5s -> %2s,%.100e\n",$_,$v,$v)}'
   -2 ->  0,0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
 -1.9 -> -0,-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
 -1.5 -> -0,-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
 -1.1 -> -0,-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
   -1 ->  0,0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
 -0.9 -> -0,-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
 -0.5 -> -0,-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
 -0.1 -> -0,-0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00
    0 ->  0,0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00

$ perl -v
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
...

$ uname -a
Linux fmdev10 2.6.24-etchnhalf.1-686 #1 SMP Tue Dec 2 07:56:33 UTC 2008 i686 GNU/Linux