$ perl -e 'my $a=(1 == 1) and 0;print "$a\n";'
1