perl -Mstrict -w -e 'if (0.3 == 0.1 * 3) { print "equals\n" } else { print "* difference * ", abs(0.3 - 0.1 * 3), "\n" }'
* difference * 5.55111512312578e-17