>perl -e'print 37.73*100'
3773

##</code><code>##

>perl -e'print int(37.73*100)'
3772