Select Code to Download

use warnings;
use strict;
...

$one += 0 && warn "&&\n";
$one += 0 and warn "and\n";

||
and

($one += 0) || warn "||\n";