Truncate (not round) decimal places in sprintf?

Question

I want to display the dollar value with two digits after the decimal point to denote the cents. In the below program the output is 23.24. Perl rounds the decimal places. How to avoid it. I want the output to be 23.23.

$val=23.2395;
$testa=sprintf("%.2f", $val);
print "\n$testa\n $val";

Answer 1

print int(23.2395*100)/100;  # => 23.23