Truncate (not rounded) decimals in sprintf?

Question

I want to show the dollar value with two digits after the decimal point to indicate cents. In the program below, the output is 23.24. Perl rounds decimals. How to avoid this. I want the result 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

Answer 2

Math :: Round has different rounding methods.

use Math::Round 'nlowmult';
print nlowmult( 0.01, 23.2395 ); # 23.23