>perl -e'print 37.73*100'
3773