use strict;
use warnings;

my $a = 1;
my $b = 0;
my $c = $a and $b;
print "c=$c\n";