perl -e "print 19748.94 - 19748.94"