C:\>perl -le "print 'WTF' if 1.00000000000000 != sqrt(3);"
WTF

##</code><code>##

my $x = 0;
for( 1..100 ) {
    $x += 0.01;
    # ...
}
print $x, $/;