Select Code to Download

for my $a (0, 1) {
  for my $b (0, 1) {
    print "c1 : $a, $b, ", c1($a, $b), "\n";
...
  my ($a, $b) = @_;
  return $a and not $b
}

c1 : 0, 0, 0
...
c2 : 1, 0, 1
c1 : 1, 1, 
c2 : 1, 1, 1