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