#!/usr/bin/perl -w

use strict;

my $floatNumber = 0.345;

my $roundToTwoDecimals = int($floatNumber * 100) / 100;
printf "\$roundToTwoDecimals = %0.02f\n", $roundToTwoDecimals;

my $forcedRounding = int(($floatNumber + 0.005) * 100) / 100;
printf "    \$forcedRounding = %0.02f\n", $forcedRounding;

exit;

__END__

C:\Steve\Dev\PerlMonks\P-2013-09-16@1955-Rounding>rounding.pl
$roundToTwoDecimals = 0.34
    $forcedRounding = 0.35