# perl -wle 'print int(1.66)'