in reply to decimal places
printf "%.2f\n", $percent; [download]
my $percent = sprintf ("$.2f",100*$amount / $length); [download]