title: perl inconsistent negative zero result
body: <p>I have the following code :</p>
  
  <pre><code>my $m=0;
  my $e =0 ;
  my $g=0;
  
  my $x=  sprintf( "%0.1f", (0.6*$m+ 0.7 * $e-1.5)*$g);
  
  print $x; 
  </code></pre>
  
  <p>when I run the script the result is -0.0 and not 0.0 could someone explain why and how i can change it to be 0.0. </p>