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