print "Division by N\n";
for my $n (1..100) {
    if ( $n/100 == 0.01*$n ) { print "t" }
    else { print "n" }
}

Division by N
ttttttttttttttttttttttttttttttttttntttttntttttntttttttttntttttttttttnntttttttttttnnttttttttttnnttttt


##</code><code>##

if (( x - y ) > epsilon ) then true
##</code><code>##

perl -e 'our $sum;for(1..1000000){$sum+=0.00000001};printf "%1.20f\n", $sum'
0.00999999999994859168

##</code><code>##

perl -e 'printf "%0.20f\n", 2/0x1000000'     [11:08am]
0.00000011920928955078
##</code><code>##