$roundeddistance = sprintf "%4.2f", $distance;