perl -e 'my ($a, $b) = (0.45000001, 0.4499999); print sprintf ("%0.1f %0.1f %f", $a, $b, $a-$b )'