$ perl ttbin.pl
8 and 1 = 0 (should be 0, if we use a binary operator)
8 or 1 = 9 (should be 9, if we use a binary operator)

$