$ perl -le 'print int(5.45)'
5

$ perl -le 'print int(-5.45)'  
-5

$ perl -MPOSIX -le 'print floor(5.45)'
5

$ perl -MPOSIX -le 'print floor(-5.45)'
-6