perl -MO=Deparse,-p,-x9 -e 'print "we have ", ($fo + 2 || 8), " beans";'
print('we have ', (($fo + 2) || 8), ' beans');
-e syntax OK