Select Code to Download

#!/usr/bin/perl -w

use strict;
...
__DATA__
8 and 1 = [% PERL %] print 8 & 1 [% END %] (should be 0, if we use a b
+inary operator)
8 or 1 = [% PERL %] print 8 | 1 [% END %] (should be 9, if we use a bi
+nary operator)

$ 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)

$