String Perl

$value = 1234.56789;
print sprintf "%6.6f\n", $value;