$ perl -wle 'print 0 or 1'
0
$ perl -wle 'print 0 || 1'
1