Select Code to Download

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

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