>perl -wMstrict -le
"print 0 || 1;
 print 0 or 1;
 print(0 or 1);
"
1
0
1