String Perl

$value = 1234.56789;
printf "%.5f\n", $value;