Обрезать (не округлять) десятичные знаки в sprintf?

Я хочу отобразить стоимость в долларах с двумя цифрами после запятой для обозначения центов. В приведенной ниже программе вывод равен 23,24. Perl округляет десятичные разряды. Как этого избежать. Я хочу, чтобы на выходе было 23.23.

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