perl -MO=Deparse -e ' print "true" if 1'   
print 'true';