perl -e 'print "CRAP\n" if ((334+333+333)/10 != 100)'