$ perl -E'$x=1; $x &&= 0; say $x'
0