Help for this page
$r = 1.3; print $r,"\n"; $rounded=sprintf ("%.1f",$r+.05); print $rounded,"\n";
perl -w round.pl 1.3 1.4