perl -e 'print "CRAP\n" if ((33.3+33.3+33.4) != 100)'