gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;

# github.com/dbbolton
#
# simple "truth table" evaluator

for my $i (0..1) {
    for my $j (0..1) {
        for my $k (0..1) {
            for my $l (0..1) {
               print "$i$j$k$l";
               print " AND" if ( $i && $j && $k && $l);
               print " OR" if ( $i || $j || $k || $l);
                   # et cetera
               print "\n";
            }
        }
    }
}