print "print an example of negative zero\n";
my @range = (-0.0000001, -0.000001, -0.00001, -0.0001);

foreach my $example (@range)
{
    my $twice = sprintf "%.5f", $example;
    my $tret = sprintf("rounded float:%7.5f, other:%7.5e",$twice,$twice);
    
    print "The Number $example is represented as $tret\n";
}

##</code><code>##

print an example of negative zero
The Number -1e-007 is represented as rounded float:0.00000, other:0.00000e+000
The Number -1e-006 is represented as rounded float:0.00000, other:0.00000e+000
The Number -1e-005 is represented as rounded float:-0.00001, other:-1.00000e-005
The Number -0.0001 is represented as rounded float:-0.00010, other:-1.00000e-004