my $a = 1;
my $b = 0;
my $c = $a and $b;
print $c;

##</code><code>##

my $a = (1==1);
my $b = (1==0);
my $c = $a and $b;
print $c;