print sprintf "%.15f" => $x;