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

my $oValue = 0xAAAA;
my $setBit = 1 << 5;
my $mask = $setBit - 1;
my $setBits = $oValue | $mask;
my $resetBits = $oValue & ~$mask;

printf "orig: %016b\n", $oValue;
printf " bit: %016b\n", $setBit;
printf "mask: %016b\n", $mask;
printf " set: %016b\n", $setBits;
printf " clr: %016b\n", $resetBits;