#!/usr/bin/perl -P

# set this to the bit masks 
#define ONE 1
#define TWO 2
#define THREE 3
#define FOUR 4

print "bitwise AND (ONE & FOUR)=", ONE & FOUR, "\n";
print "bitwise AND (ONE & THREE)=", ONE & THREE, "\n";