return sprintf "%d", $out; # Wrong, truncates. #### return sprintf "%.0f", sprintf "%.6f", $out;