perl -le 'sub bingo { return 0 }; @a = bingo(); print @a ? "True" : "False"'
True