perl -E 'say int 0.999999999'
0