perl -MO=Deparse,-p -e 'print $fo + 0 || 8' print((($fo + 0) || 8));