$ $ perl -wle ' my $x = 1.15; print +(int($x*100 + 1e-8))/100;'
1.15