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