$ perl -e 'print int(.678*100)/100;'
0.67