my $nz= -0.0;
printf "%f\n", $nz;    # Will print "-0.00000" on some platforms
printf "%f\n", "$nz";  # Should give "0.00000"

##</code><code>##

-0.000000
-0.000000

##</code><code>##

#!/usr/bin/perl -w
use strict;
my $nz= -0.0;
printf "%f\n", $nz;     # May give -0.00000
printf "%f\n", "$nz";   # May give -0.00000, surprisingly
printf "%f\n", 0+"$nz"; # Doesn't give -0.00000!
__END__
-0.000000
-0.000000
0.000000