or download this
my $tolerance = 1.0e-16; # Change this value based on observation
if ($tolerance*abs($range_min + $change_min) < abs($range_min - $chang
+e_min)) {
...
my $difference = $range_min - $change_min;
printf " Difference : %0.24f\n", $difference;
}