#!c:/perl/bin/perl
$x=100.0;
$y=-100.01;
print $x+$y;

##</code><code>##

-0.0100000000000051