C:\usr\local\share\PassThru\perl>perl -le "print int(100*'1.13')"
112

C:\usr\local\share\PassThru\perl>perl -MPOSIX=round -le "print round(100*'1.13')"
113