perl -e '$x=100.09;printf "%d\n",$x'
100