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