perl -MO=Deparse -e 'print 4.39 * 100'

perl -MO=Deparse -e 'print int( 4.39 * 100 )'

##</code><code>##

print 438.99999999999994;

##</code><code>##

print 438;