$ perl -wle ' my $x = 123456.15; print +(int($x*100.1))/100;'
123579.6

##</code><code>##

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