perl -MO=Deparse -e "print 2 * 2" print 4; -e syntax OK