perl58 -le "$eps = 1; while( 100 < 100 + $eps ){ $eps /= 2 }print $eps"
7.105427357601e-015